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EQUIPTMENT 

POP-11 FAMILY COMPUTER WITH 16K WORDS OF MEMORY 
LPS11 WITH DRA OPTION INSTALLED 

TELETYPE (OR EQUIVALENT) 

STORAGE 


THIS PROGRAM USES 16K OF MEMORY. 


PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED. 
STARTING PROCEDURE 


STANDARD PDP-11 FORMAT 


SW isS=1 WALT Se Geer 
SW 14 = 1 OOP ON 
1g =1 weit T 
ll=il NHIBIT INT! VP 
+ NPUT-OUTPU E NOT CONNECTED 
= LOOP ON 
SW =1 OOP ON TES 


t 7:0> 
REFER TO 10. FOR SOFT SWITCH REGISTER R OPERATION. 
STARTING ADDRESS OR ADDRESSES 


: ie BuRE Gc eRe ecb THe Fe RBIS TES eancrion LOOP. 


e ie em ousy OF peTn.eo TO EXECUTE THE 


Ciera dont AIO OG DUREE dt 


AI THOUT ise WILL eta rch TASMAN THE siitTcH "cH 


INTERVENTION SWITCH SELECTION. 


T WIS PROGRAM USES T THE DI 


ERROR REPOTRING AND TYPEOUT. REFER TO tHE “ERROR POINTER TABLE” 


SEQ 0003 


8.2 


8.3 


ERROR REPOTRING AND TYPEOUT. REFER TO tHE “ERROR POINTER TABLE” 


FOR TYPE AND DEScRIPTION OF ERRORS. DO1 
RESTRICTIONS 
THE FOLLOWING RS MUST BE IN THE “FACTORY” POSITION: 


W16-W17-W18-W19. 
THE TOR MUST Y CORRECT JUMPER AND SWITCH 
CONF SCURATION OR ARUERROR WILL OCCUR. 


MISCELANEOUS 


EXECUTION TIME 


THE LOGEC vest WILL TAKE APPROXIMATELY S SECONDS FOR a ty Naa 
AND WILL "END PASS’. FURTHER PASSES TAKE APPROXIMATELY 


MIN 
THe COMBINED FUNCTION LOOP WILL NEVER EXIT. 
DEVICE ADDRESS PROGRAM LOCATIONS 


teat fs “Pectin cont csetatee THE SrTHe ORR BPsE INTERRUPT. VECTOR caso) 


REET AD ecAon io Dire We AOL Mabon ECE 


ACT/XXDP/APT 


PROGRAM IS CHAINABLE UNDER XXDP_ AND ACT. THE HOOKS FOR “APT” 


THE 

ARE PROVIDED HAVE NOT BEEN TESTED. 

USER LINK TO 1/0 DEVICE 

A SPECIAL_USER LINK HAS BEEN PROVIDED IN ORDER FOR THE 
OPERATOR TO EXAMINE OR MODIFY LOCATIONS ON THE LPA11-KX 
170 BUS. (NOTE: THIS CANNOT BE DONE DIRECTLY.) 
PROCEDURE : 

1) START THE PROCESSOR AT LOCATION SUTK: 


2) THE DIALOG TO EXAMINE A LOCATION IS AS FOLLOWS: 

E oF Ae te 

DEVICE ADDRS= “OCTAL ADDRS” 

XXXXXX 

WHERE XXXXXX IS THE CONTENTS OF THE SPECIFIED LOC. 
3) THE DIALOG TO MODIFY A LOCATION IS AS FOLLOWS: 

Bata=” “Ba 

A= “DATA TO BE DEPOSITED” 
4) THE PROGRAM WILL STAY_IN THIS LOOP UNTIL THE OPERATOR 
Ex CinteeD. AT THIS TIME THE PROCESSOR SHOULD BE 


NOTE: THE OPERATORS RESPONSE IS ENCLOSED IN QUOTES. 


SE@ 0004 


10. 


ri. 


EOl 


PROGRAM DESCRIPTION 


THE Logre Tee! TEST is A TEST )& outt CONTROL _AND_INPUT/OUTPUT 
REGIST ITCHES COMBINATIONS EXCEPT: 


W16A-W17A- i. 7 CAN BE DIAGNOSED. 
4.3 s HE ORA CAN INTERRUPT AND THAT 
“RESET” WILL CORRECTL Y. 
THE COMBINED FUNCTION LOOP PROVIDES THE OPERATOR WITH: 


- ety 1 ¥ con retin meray oe eas 


SOFTWARE — SWITCH | REGISTER | OPERATION 


THE PROGRAM TS _NON-SWITCH wecisTer SY 


been Gre Saree: 
Now Me celal Teh ath NAYES HITH A “CR. 


LPA11 (SYSTEM) DIAGNOSTIC SUMMARY 


oF TICS FOR THE LPA11 ARE WRITTEN AT THREE LEVELS: (1) 
OTAL -11 SYSTEM, (2) LPA11 SYSTEM; AND, (3) LPAIIL TIONS. 


pm pestanep Jo. {Soke Exercisep TO THE LPAL1 SYSTEM. 
Si NAL ETL NH GST, 
DIAGN a ES 

“a2 a oe. ereB! fae Wen. 


Tape tare 


Ht 


TIC FI Ror THe 

BRS TRA PLLON R ano ReGUIRE THAT THe ' cg COND 
“Bp” ) REQUIRES POP-11 

SySTEn. me as RECONFIGURATION INVOLVE REL ING HE UNI BUS TO THE 


THE DIAGNOSTIC FOR THE M8254 FALLS INTO THE GROUP “B” CATAGORY. 


FOl 


THE LPA11-KX DIAGNOSTIC KIT WILL INCLUDE: 


OPTION GROUP DIAG. # DIAG. TITLE 
LPALI-KX LEVEL 2 MD-11-DRLPA LPAL1-K SYSTEM DIAG. 
M8254 “B" MD-11-DRLPN MB2S4 (CIPBM) DIAG. 
AALIL-K A MD-11-DRLPB AAL1-K DIAG. 
B MD-11-DZAAC AALI1-K DIAG. 
AR11 A MD-11-DRLPC LPA/ARI1 DIAG. #1 
fe) MD-11-DRLPD LPA/ARL1 DIAG. #2 
q MD-11-DRLPE LPA/ARI1 DIAG. #3 
B MD-11-DZARA AR11 DIAG. #1 
B MD-11-DZARB AR11 DIAG. #2 
B MD-11-DZARC AR11 DIAG. #3 
OR11-K A MD-11-DRLPF LPA/DR11-K DIAG. 
6 MD-11-DZDRG DR11-K DIAG. 
KW11-K A MD-11-DRLPG LPA/KW11-K DIAG. 
B MD-11-DZKWK KW11-K DIAG. 
LPS11 A MO-11-DRLPH LPA/LPS11 DIAG. #1 
A MD-11-DRLPI LPA/LPS11 DIAG. #2 
A MD-11-DRLPJ LPA/LPS11 DIAG. 8&3 
B MD-11-DZLPC LPS11 DIAG. #1 
B MD-11-DZLPD LPS11 DIAG. #2 
B MD-11-DZLPI LPS11 DIAG. #3 
AD1L1-K 9 MD-11-DRLPK LPA/AD1L1-K DIAG. 
B MD-11-DZADL AD11-K DIAG. 
m8200-YC B MD-11-DZLPL LPA/M8200-YC BASIC 
MICRO-CPU R/W TEST 
B MD-11-DZLPM PaA/M8200-YC 


L Y 
JMP+ROM READ TEST 
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- TITLE MAINDEC-11-DRLPJ-A LPA/LPS-11-DRA DIAGNOSTIC 
COPYRI ) 1 


;* 
;*PROGRAM BY EDWARD BADGER 


:% 
;*THIS PROGRAM WAS essere ED ING _THE PDP-11 MAINDEC SYSMAC 
j #PACKAGE (MAINDEC-11-DZQAC-Ce), SEPT 14, 1976. 


- REM : 
THIS IS A LIST OF Tests DELETED FROM THIS DS as 5 apa 
THESE TEST COULD NO THROUGH T 


TEST THAT T NPU NT MAINT. BIT 

TESt THAT T NPUT_INT. CLE INT. ENABLE VIA MANT BIT 

3 M pear M Ma CAN INTER e US THE MAINT. BIT 

fee} EOe Mien: amt Bes Ue 

TEST FOR INTER. FROM INPUTS ON LEVEL INDICATED -1 
vEA MAINT. INIT. 

TEST THAT OUT! G. CAN A COUNT PATTERN 

TEST THAT OUTPUT ee an Sy T PATTERN 

TEST THAT OUTPUT CAN HOLD HIGH BYTE COUNT PATTERN 


’ 
-SBTTL BASIC DEFINITIONS 
pe ins TIA, 7 OF THE STACK POINTER ### 1100 ### 


STAC 
"EQUIV ERT, ERROR 3 BASIC DEFINITION OF ERROR CALL 


"EQUIV IOT’SCOPE ::BASIC DEFINITION OF SCOPE CALL 
5 MISCELLANEOUS DEFINITI 

HT= ON RODE FOR HORIZONTAL TAB 

ERs 12 SEED FOR GA RETURN 

CRLF= 200 11 SOE FoR FOR GARR tie RETURN-LINE FEED 
Pee ay 127776 ESSOR STATUS WORD 

STKLMT= 35554 STACK LInit IT REGISTER 

pare: © 155695 4 TT TCH REGISTER. eOTSTER 

DOISP= 177570 tt HARDUARE DISPLAY REGISTER 
-¥GENERAL PURPOSE REGISTER NIT 

RO= 40 ; GENERAL aed GTsTER 

Re= %2 + RAL StetER 

R3= “3 ::GENERAL REGISTER 

RY= “4 ; | GENERAL REGISTER 

RS= 4S ::GENERAL REGISTER 


SEQ 0009 


SEQ 0010 
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SSS SSSSS 
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REGISTER 
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;GENERAL REGISTER 


ee 
er — 


PETTY wu : - BEErEEEEE EE Fung ene oraD 
see eee eeee Pr sslesleslasleslevleslaslesles} 


Y LEVEL DEFINITI 
ne heal SWITCH DEFINITIONS 


wor wn 
XXXX 


SF Rane 


ITY 
0 
185 


cee 


A BIT DEFINITIONS (BITOO TO BIT1S) 


PRIORI 


had ee 
cw ° 


PRiI= 
PRe= 
PR3= 
PRY= 
PRS= 
PR6= 
PR7= 


Li a 


> SOBHRORTSRTTTOT POOSGOOS SOG Saree eu UUM MAMAS 


Se ee Ream Ree Rea Ree Dee Dee here fee Reon Dee Keo Kean Kee Kee Dee Deen Kee bee hee Koen been Kee Keon bee bem Keon bon kk re ree 


ze 
“8 


a a I I WH 
ODD VOM LOU ODO VOULE WOH ODO I £ OMe ODD 


1-DRLPJ-A PA/LPS-11-DRA DIAGNOSTIC MACY11 27(654) 1S-DEC-77 08:37 PAGE 4 
BASIC DEFINITIONS 


000040 


BIT 
= 
899070 tTo3= 
11D : 
= 
1 it j= | 
- EQUIV T09,81T9 
[EQUIV T08;B8ITs 
- EGU Vv BIT 2. BIT? 
‘EQUIV BiTOS’ BITS 
“EQu Vv tt atta 
“EQUIV BITO3,8IT3 
[EQUIV BIT BITE 
“EQUIV iT "BIT 
[EQUIV T00;BITO 
-¥BASIC “CPU” TRAP VECTOR ADDRESSES 
pocoo4 ERRVEC= 4 ;; TIME OUT AND OTHER ERRORS 
010 RESVEC= 10 i i RESERVED AND ILLEGAL INSTRUCTIONS 
14 TBITVEC=14 33-1. BI 
ae BPTVECs ty ae SENT TRAP (BPT) 
popde0 ch k= 34 t HINPUT “OUTPUT TRAP (IOT) *#SCOPEx 
500050 ENIVER= 50 tt EMULATOR. 
EMTVEC= : EMULATOR TRAP (EMT) *#ERROR** 
Boopea ThrENe b0 titty KEYBOARD VECT 
000064 TPVEC= 64 :: TTY PRINTER veEfoR™ 
000240 PIRQVEC=240 ::PROGRAM INTERRUPT REQUEST VECtOR 
170410 ABASE=170410 
000350 AVECT1=350 
000200 APRIOR=200 


BH Be be bh fs ae be ht be Be De he Rs bb Be Pe eh 


BEER LO BBSVEN Lore Owe 


SeNPReOReS 


mr er he 


POR Ow Now £wrM-o 


rururororororurururururururut 
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1 OPERATIONAL SWITCH SETTING 


-SBTTL OPERATIONAL SWITCH SETTINGS 


SEQ 0012 


:F 

* SWITCH USE 

;* 15 HALT ON ERROR 

3% 14 LOOP _ON t 

;* 13 INHIBIT TYPEOUTS 

;* ih pest IT AERATION 

;* 1 NPU TPUT CABLE NOT CONNECTED 
3a 3 LOOP ON ERROR 

;* 8 LOOP ON TEST IN SWR<7:0> 


-SBTTL TRAP CATCHER 


ooooo0 
D Loc TIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
Sue nist 0 ar cH ILLEGAL TRAPS AND INTERRUPTS 
aa Pyle on AINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000 2] 
000174 DISPREG: .WORD AY REGISTER 
000176 SHREG: 5 + + 80F THARE git TCH REGISTER 
x .SBTTL i aeeTn ss 
000137 1564 aeBE ESUMP 10, STARTING ADDRESS OF PROGRAM 
04 000137 1570 TO THE RESTART ADDRESS 
000210 000137 011764 Serattot + JUMP TO THE MISC. TESt 
.SBTTL ACT11 HOOKS 
= LEGER KESEE GREEKS SERS EKLERARAS KR REARARARRRRRRERERRRE RARER ARAEKE 
? HOOKS REQUIRED BY ACT11 
000214 SSVPC=. ;SAVE PC 
ooo046 Oia3e4 SENDAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
oooose 000000 \ [WORD O ;;2)SET LOC.S2 TO ZERO 
000214 : =$SVPC ?: RESTORE PC 
001600 =] ; 
.SBTTL APT PARAMETER BLOCK 
. = LKERKEEGEERREEERERERRAERRRRRSRRRR REE RRR RRR ERRRRRRRERKRRKKRALREE 
:SEr LOCATIONS 24 AND 44 AS REQUIRED FOR AP 
Nee ett ttt et icl-iab-iet--b-het-ialah-5-5-+-4-5-Suiadeiaiaiaiaiaiaieiaisieisleisiaisiaisisisisieielieiel 
ppabe4 “SKS. SBVE CURREN IL TO POINT TO START OF PROGRAM 
~ = ee 
oo0024 900200 205) $5 APT 
0044 3:POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHOR ;;POINT T9 APT HEADER BLOCK 
TESTS PTET TELS TT eT TTT ETT EET tS PET PETE TEE E PETE TESETT TTT ET eT Ts 
; APT TER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 
1000 SAPTHD: 
001000 ocooc00 HIBTS: .WORD O ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
| 


MAINDEC-11-DRLPJ-A 
AP 


ORLPJ.Pil 
€eeS 001002 
ee& 001004 
586 801018 
223 001012 


0011 
0000 


seins 


SUN 


TM: 
TM: 


LPA/LPS-11-DRA DIAGNOSTIC 
T PARAMETER BLOCK 


° “ORD 


“HORD 
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SMAIL ;;ADDRESS OF APT eee, (arts O0-1S) 


10. 3 RON TIM _OF LONGEST 
60. 5 RUN TIME IN SECS. OF 1ST PASS ON 1 UNI 
DITIONAL RUN TIME (SECS) OF A PASS F 


60. 
Sieo-shices ;; LENGTH MAILBOX-ETABLE (WORDS) 


td 


SEQ 0013 


a 


rururufurururururufTm “0 


BEE 
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OMes 


ERP eE ke BoM D RO sa aeaEoeS 


St 


NNN 
-—-O” 


fuerururorurorofurure 


ROT IIIS 


ory 
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COMMON 


“1 


8888888 
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Bak 
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-SBTTL COMMON TAGS 


Fee rf debeb-b-boh-b-dehalal-b-d-b-i-}-Set-inialalaialaleiaialoiel 
ikTuts : Bi Mag HOOF VARIOUS COMMON STORAGE LOCATIONS 


_21100 
SCNTAG: *~ ;;START OF COMMON TAGS 
STSiNM: ;CONTAING THE TEST NUMBER 
$I 4. 


CONTA AINe OOTEST 1 TERATION COUNT 
fee Toye: 


O000-00000000 


LES 


on Lael 
x 
ae 
D 
= 
Wie SSSRESSEEESSIESE ES? 


See wl wse Se Stee Sees ee es er ese 
DPooecooooooo 





T 
SBDDAT 0 

TOB: .BY 5 ; ; AUTOMAT ICATOR 
STNTAG: Byt 8 + A NTORRUPT MODE *CATOR 

: SUR 33 TCH REGISTER 
Bis DDIsP t ROORE or AY REGISTER 
STKB: 177562 bitty UF 
STP: 77564 33 TTY R STAT ;. 
Smut: ‘ayTe’ oO ti LONTAING 
sriite: cere je OED ON seme He ee 
$T FL: ‘ByT 0 t ETERNAL Ay I E FLAG (BIT<67>=0=YES) 
seshctienttd  RRLGH | SHegO) URS, SBTAINED 
SREG1: .WORD 5 t  EONTAINS (¢ )42) 
g : ;3MAX. NUMBER RATIONS 

$3 


m4 
i. 

5 
E 


-ASC 79 
“BScHt <1§> $5 I RETURN 

g [tteeenieetekesssaseeeecysenneebbineiensaeeneeennnaneneeneiaans 
‘ASTTL APT MAILBOX-ETABL: 


» SMM HE MEME ME HE HE ME HE HE HE HM HE HEH RR RE ER ARE RARER RAR RELL RE REE 
N 


ive 

$MAIL: ; $APT_ MAILBOX 

SMSGTY: .WORD AMSGTY ;:MESSAGE TYPE CODE 
SFATAL: :WORD AFATAL ;:FATAL ERROR NUMBER 


w 
o 
xD 
-- 
wh 


SEQ 0015 


TY#1 
Yse 
UNDER TEST 


onit 


yl 4/20=03, 11/40=04, 11/45 
1 


om 


S,THIS WORD AND LOW OF “TYPE” ABOVE 


(HIGH BYTE) 


se eS cpevetennenss 
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Wee: BYE 
A 
BYt 
: t 


7, 
VU T= 1s) 


ied 


4 a + 
5 poste Se - mf ge grirr +++ i yin +atatatatat: 
+~~HAOtOADOOOG - - - = we MOOOOOOOOOOOOH# 
- a —- FOHNOUGA WGA WOW 52 aad 
a 1 — i cr Cc ede ode dias med IC - 
¢ a. Oe EOOOOOOOOOOOOO 
= OS Srdrrdrra >>>>>>>>>>> 


- - 
x - ca. hi aho—ehaliale-thadial a 
BN wwe eects x<t=x x atbtstatatatatalatatatatavatate 


0S 0@ 6@ 0@ oS ee sO ease seca caeh-q L Lem bam! cy oe snibie are reensnsnencnensnsncececncnce cece sesnememenees oT 


Wane os 
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Me asthds Cree 
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TABLE 
STESTN: 
T: 
T 
NV 
GC: 


APT MAIL 





paren e eee eres 


PReUERERERER ERRRRINRES aren ae eecern a 


-11-DRLPJ-A 





il 


wd 
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DRLPJ.P11 APT MAILBOX-ETABLE —s« SE@ cole | 
338 001314 SDDW ADDW13 ;;DEVICE DESCRIPTOR WORDS 


WW 


. WORD 13 13 
“WORD «ABDWis | !BEVEEE BESERIPTOR WoRDeis 





1 
xe ee 


345 001322 SETEND: 
344 


fe 


“NAINDEC“1 11-DRLPJ-A LPA/LPS-11-DRA DIAGNOSTIC MACY11 27(6S4) 15-DEC-77 08:37 PAGE 10 


ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 


A TN RSL Sra 


senTed : Back Ten if ad RX Gonna POIN NTERS EXPLAINED AS FOLLOWS: 


PJ.P 
3ue 
| 3? 
a: 
| 
3) 5% EM siPOENTS 7 SSAGE 
354 :# H HS rg i i fete HERDER 
4 re Tf FORMAT 
353 001322 SERRTB: 
; ITEM 
3e3 001322 012375 be ;STATUS REGISTER IN ERROR 
363 001324 013016 OH1 sERRPC STATUS EXPECTED 
e 901386 o1 is :$ERRPC SBDDAT SGDDAT 
;ITEM 2 
368 001332 012427 EM2 ; INPUT REGISTER IN ERROR 
: Bt S130 Be Saab Ebb Sabet 
1 O01 1 1 : 
38 ; ITEM 3 
374 001342 g124s7 Eng ; OUTBUT Fig STER ae 
352 Bolave otas0e He earee OpTeuT sepcTeD 
377 001350 013230 OF 1 
sITEM 44 
3 001352 012510 = EM4 ; INPUT FAILED TO INTERRUPT 
385 Bot 13338 oH  SERRPC 
383 601368 613515 BF : 
; ITEM 
1 12542 ens ;QUTPUT FAILED TO iNTERRUPT 
ee poise giasys rs : 
388 001366 013212 DTY : SERRPC 
389 1370 013230 OF 1 
391 ; ITEM 
001376 12675 = Eng ;UNEXPECTED INTERRUPT 
801 74 oI 131 : 
001376 O13e212 OTY : SERRPC 
336 001400 013230 OF 1 
397 sIvEn 7 
398 O01402 0O12622 EM7 ;OPERATOR INTERVENTION ERROR 
| 
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DRLPJ.P1l ERROR POINTER TABLE 


399 001 1313 DHY s ERRPC 
400 301408 B12 DT4 + EE RREC 
4 i OO141 13230 OF 1 
| G3 ;ITEM 10 
4 001412 012656 EM10 ; INTERRUPT INPUT BIT FAILED TO SET INPUT READY 
40S 001414 013137 DH10 ? ERRPC STATUS EXPECTED INPUT BIT 
408 N01416 Ol3el6 OT10 :SERRPC SBDDAT BRLEV3 
4 901420 013234 OF 10 
70 0014 1274 stTeM ay NON-INT TING INPUT BIT SET INPUT READY 
ee . —_ 
411 0014 pista? DH10 > ERRPC SEATS EXPECTED INPUT Bt 
die 001426 013216 OT10 *SERRPC SBDDAT S$GDDAT BRLEV3 
414 001430 170410 D : 170410 ;DRA STARTING ADDRESS 
415 OO14 000350 DRIV: 350 :DRA STARTING INTERRUPT VECTOR 
416 001434 000200 D 200 :DRA BR LEVEL 
“ig 
420 ‘ADDRESS OF KMC-11 OF LPA-11 THE ADDR FOR KMADO MAY BE 
4e1 : Cc 0 THE USER TO rEFLECT 
HE : Beit" cee Sora seEe7G: 
dea : BE CHANGED BY PROGRAM. 
426 . 
427 001436 LPCI: 
dee 001436 170460 KMADO: .WORD 170460 ;BASE KMC ADDR. MAY BE PATCHED BY USER. 
430 001440 LPMR: 
a3 1449 170461 KMAD I : .WORD 170460+1 ;>DO NOT <;KMC-CSR ADDR 
4 33 iis 170462 KnAde: .WORD 170460+2 ; >PATCH ‘; 
4 DOL 170463 KMADS: .WORD 170460+3 ;> THIS AREA < 
4 as 1446 170464 K : .WORD 170460+4 ; 
433 901459 170465 KMADS: .WORD 17046045 ;>DO NOT a 
ie ac 1485 170466 KMADE: .WORD 170460+6 ; PATCH < 
a3 001454 170467 LMAD Mas: .WORD 170460+7 ;> THIS AREA < 
44S 14 000350 CTOR: .WORD AVECT18777 ;BASE VECTOR OF KMC 
ae rests 000354 CTPS: :WORD 4+AVECT18777 :VECOTR ADDR. +2 
we 001462 oo0004 VERSN: .WORD 4 ;CURRENT VERSION NUMBER OF MICROCODE. 
450 001464 o00000 .DOVLs: .WORD O ;/DEVICE LIST OF 170 ADDR. DEFINED 
451 1466 000020 "BLKW 1b. :/BY INIT. 


' 
[a 
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ORLPJ.P1il POINTER TABLE SEQ 0019 
4 1 GRSTAT: 170410 ;0R_S ATUS 
1 GROAI: 170412 i OReUT REG. 
001 GROIO: 170414 ;OUTPUT REG. 
001 GRBHIO: 70415 ;OUTPUT REG HIGH BYTE 
001 Nott : 
4 DO 1 NOTINT: 
45 Bot GRIVA: 19 
aee D1 ee : 314 
ee $ 
463 001 0 : 
“ee OB preys: § 
466 ea V3: 5 
46 1 STNOA : O 
my $j REESE SE AE 0 309696 9 0 9 9 0 0 9 a a a a a a a a a a a 
47 PTET TT TT TTT TTT TTT TTT Te TTT eT TT ti itt titi titi titittititiiiiiiey 
We 001 BEGIN: 
473 O01 
474 OO1 
ape O04 
DO 1 


sesso Helen HRETEGRARS, ORCA 
ll Reds 


noy FIRST LOCATION TO om CLEARED 


MEMORY LOCATION 


She JaRee 


SLR RO 
Oe RBEG ; 
12700 177777 BEGINL: oy #-1,R0 
1 
eh ne ; 3 DONE? 
12706 SETUP THe Stack POINTER 
; [OT sien FOR SCOPE ROUTINE 
wee FOR ERROR ROUTINE 


: VECTOR FOR TRAP CALLS 


4 
Ee ek FAILURE VECTOR 


eG 


;; INITIAL 


oo 
—s 
er wo 


== 
Qo - 


444 


« 


- 
hh hh he 


eae Bs 


+ 


sre 
as 
n 


NOG 
== |= 


TERAT IONS 


atat 


ss 
SS FOR SCOPE 


0c 
NN 
me 
£o 





mu 
BA 
pa 


Maiitimecerinerrerers 





00 
205 Bor 
503 1 SWICH REGISTER 
ee 15e8 +: TRY TO ERE! BUARE SER” 
506 001772 33 fer TIMEOUT TRAP OCCURRED 


DRLPS Pile ~ORLPSTRITIALI 


507 


UU UU UU 
ee ee sat & 
DOD NOU £ WIT 


Re 


GRRE Re a oor 


CT ey eg ey oy eg wey ang a 


RN 2ERNr sore 


1774 
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= 5 BND Ir Fin LIREOUTS, IS NOT = -1 
#65, (SP) + BR OP NO RAP 


;;POINT TO SOFTWARE SWR 


S01 SPREC, DISPLAY 
a1 SPREG, DISPL ;;RESTORE ERROR VECTOR 


SAPTSIZE, SENVM 1 VEST use SER SISE UNDER APT 
BSSuREG, SHR INO. USE APT SHITCH REGISTER 


SBASE , DRADD 


‘THIS SECTION OF CODE HANDLES INITIALIZING LPA-11 FUNCTIONS 


PA/LPS-11-DRA_ DIAGNOSTIC 
THE COMMON TAGS 
BR 
tere eels BLE SSS 
1 Begd04 66S: MOV 
R 
093033 B0d800 o01217 Sifs 
001403 BEQ 
012737 001220 001140 oe MOV 
013737 001252 001430 DONOT: MOV 
, 
MOV 
MOV 
MOV 
MOV 
64S: INC 
MOV 
CMP 
err 
MOV 
MOV 
TST 
BEQ 
1$: JMP 
2s: are 
-:66$: .ASCIZ 
beg’ 
TYPE 
--685: .ASCIZ 
igo 
TYPE 
- 70S: oRSCIZ 
bas: é 
737 0132 JSR 
1765 001536 MOV 
104401 0023 TYPE 
37 BR 
-72$: .ASCIZ 
sig: 


R1'-(SP) 
KMADO, RO ;GET KMC-11 ADDRESS. 
sKMADL,R1 :GET ADOR. OF ADOR. LIST. 
RO, (194 tURT TE ADOR 
R1’ #KMAD7+2 :DONE ALL ADDRESSES? 
64$ NO NEXT ADDR. 
.DVLS ?CLR “ABBR” LIST. 
(SP)+,R1 
(SP)+;RO 
RO TEST AQ, aan 
ae oOmP IF Set 
as4e 37 St_IF a “CHAIN MODE” 
is IF 
gbes IZ STRING 
CES oy cxgycia> geben SEN, HE SP BGR rau. INPUT OUTPUT LOGIC TEST# 


*GET OVER THE ASCIZ 
| ee 11-DRLPI-A/ 


7 ; TYPE IZ STR 
43° +i Te WER THE Asctz 
<15><12>/SET surten REGISTER BITS EQUAL TO THE NON-LATCHING BITS 
PC, GETSWR ;GET THE HE SWITCH REGISTER VALUE 
res" NOTLCH 
; TYPE abet STRING 


| 
| 
Ph 33 TYPE ASCIZ STRING 
*GET 
<15><12>7 W H N-IN RUPTIN TS 
is 2>/SET S hk T-QVER THE fc eGuaL TO THE NON-INTER TING BI 





MAINDEC~11-DRLPJ-A 


ORLPJ.P11 


ES 


PAO BOD II It toll oe oe 


SERA SER SaaS 


B 


Sn 


003024 


COrnrn 
SSoss 
tWwrr--o 


003040 


Bi273? 
104003 


o12797 


b12737 


004737 


00S737 


LPA/LPS-11-DRA DIAGNOSTIC 
INITIALIZE THE COMMON TAGS 


000000 


177777 


001124 


oo0004 


199957 


020120 


001126 


001540 


001124 


001126 


001166 
001562 
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75h OSH, NOT INT fe reid AT GH REGISTER VALUE 


TYPE 3s TYPE a&ciz STRING 
BR 55¢° T OVER THE ASCIZ 
5iZ4s: "ASCIZ <15)¢12>/SET SWITéH REGISTER WITH THE DESIRED PROGRAM OPTIONS, 
‘ ;GET THE SWITCH REGISTER VALUE 


BBY are 38 BE sebeeeer™=s 
Sy 


V DR horo ;LOAD 3RD ADDRESS 
MOV GRBHIO ;LOAD 4TH ADDRESS 
ADD as, 10 
IOTEST: : 
MOV BSTACK STACK 
,juageattananatanatad teesesenresnpenbaeneteneceecececeess 
TC yeas *<* epeepemmmmanememmeemeenees mecmemmmmmamaanmacenes: 
80, STMDAT 
5% MOV STMDAT,JGRSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG GRSTAT 
5% MOV STMDAT,@GROAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
5% MOV STMDAT,3GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GROIO 
5 j SRRRRRHEHHERESRETHENRT OUIPUT Ree, CA HOLD @l 
ikTE Te2 TEST THAT OUTPUT REG. CAN 6- 
j HEM Ranaxeenntennanennenenenne en ianeense teen enae canna nents 
#-1, SGDDAT ;LOAD EXPECTED 
3% MOV SGDDAT,@GRDIO ;/ PUT DATA FROM SGDDAT TO DEVICE REG GRDIO 
+ MOV T  ;/READ DEVIC G GRDIO,PUT DATA IN SBDDAT. 
; os «= BSRBAP» SBBPar SOR BARE 
BEQ TST3 ;;8R IF EQUAL 
ERROR ;REG WILL NOT HOLD ONES 
3 p SERERRHHHNREHHESEINTMAT RESET CLEARS OUTPUT REG) 
£TeE TESt THAT RESET CLEARS OUTPUT REG. 
Fag pepengmnmnencoey cena cmmenagre SN 
: #4 STINES ;;D0 4 ITERATIONS 
cu § 
V #-1, STMDAT 
5% MOV STMDAT,IGRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
JSR PC, SRESET 
5% MOV QGRDIO,SBDDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN SBDDAT. 


TST SBDDAT’ 


SEQ 0021 


5 


ee ee 


wOnouW 


2B 


Corrn 


SERS 


631 


foto 


003256 
003260 


oooo04 
012737 


012737 
012737 
012737 


053737 


PA/LPS-11-DRA_ DIAGNOSTIC 
EST THAT RESET CLEARS OUTPUT REG. 


OSeSes 


001124 


12SeSe 


001124 


003172 
000001 
oo0000 


001124 


001124 


001124 


003274 


001124 


001126 


001124 
001126 
001110 
001124 
001562 


001562 


001126 


001110 
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BEG yst4 ;;8R IF EQUAL 
$ jFEeee see Nee e eee THAT OUTPUT Rec, CAN MOLD @s2ccs 
ETE TESt THAT OUTPUT REG. 


CAN 
[AaUeaenaenansaehnnenueeneeXOenHeEXSEeROEESAEROTESEAEHHEEEIGD 


sats 


#52525, SGDDAT ;LOAD EXPECTED VALUE 
;% MOV SGDDAT,@GRDIO ;/ PUT DATA FROM SGDDAT TO DEVICE REG GRDIO 
: MOV QGROIO, SBODAT ;/READ DEVICE REG GRDIO,PUT DATA IN SBDDAT. 
CMP T’ S8DDAT 
BEQ S ;;BR IF é6uaL 
ERROR 3 ;DATA NOT=S2S25 
5 j FERRMRRRHHRHEESSETHTURT OUTPUT REG’ CAN MOLD Sizeece 
tkTE TEST THAT OUTPUT REG. CAN HOLD #1 


[HERAT yaenaenstenunhaneaehGhseeHeExSEeREEERHEEEROEEE AOE AEEE 


ut 
#125252, SGDDAT ;LOAD EXPECTED VALUE 
5 MOV SGDDAT,@GRDIO ;/ PUT DATA FROM SGDDAT TO DEViCE REG GRDIO 
+ MOV QGRDIO T  ;/READ DEV G GRDIO,PUT DATA IN SBDDAT. 
: CMP ee, Case ARE 
BEQ ST6 BR IF iSCAL 
ERROR ;DATA NOT=125252 
8 j SRARAEHHEEEEEE REAR THANE CROSS Te OUTPUT RecISTER 
tkTE FLOAT A 1 ACROSS THE OUTPUT REGISTER 
j jHeetetennaeuneniannneehaeiseeianenerneeenenenennenaanaeecaeene 
MOV #1$, SLPERR ;LOAD SCOPE_ERROR RETURN 
MOV #81 tO, SGDDAT *LOAD EXPECTED VALUE 
1S: MOV #0, STMDAT ;CLEAR OUTPUT 
5% MOV TMDAT I :/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
BIS SGDbat? STMDAT . ; READ SUreuT REG. 
3% MOV STMDAT,IGRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
3% MOV 9GRD10, SBODAT ; /READ DEVICE G GRDIO,PUT DATA IN SBDDAT. 
CMP SGDDAT ; SBDDAT TEST RESULTS 
BEQ gs BR IF EQUAL ? 
ERROR 
2s: ast SGDDAT jSHIFT EXPECTED DATA 
3 japeeegreeeeeetreceseseceececsenseseubevageacuanneuaesesanaes 
teTE FLOAT A O ACROSS THE OUTPUT REGISTER 


jSeneeteneunauunennaenneeneenseenaennennuensensnennensneaaensnes 


iit} SCOPE 
Rov #1$, SLPERR ;LOAD SCOPE ERROR RETURN 


: 


ONO KNOTT 
@NcuZoN—o 


o 
N 
he) 


Ronee 


003364 
003366 


003414 


RESSBSRRIER BaToR 


003440 


003464 


NNNNNN 
BITREO 


2 


003510 


003534 


003560 


NNNNNNNNNNNNNSY N“N 
TODD RR RR ee ee 
M-OWONOU COIMe-O 


012737 
012737 


043737 


bie737 
005137 
005137 
005137 
005137 
00S137 


005137 


Pee ePa At aRRe DIAGNOSTIC 
LOAT A O ACROSS THE OUTPUT REGISTER 


12SeSe 


001562 


001562 


001562 


001562 


001562 


001S62 


001124 
001562 


001562 


001126 


001124 


1S: 
+ % 


MACY11 27(6S4) 


#BITO, SGDDAT 
#-1, STMDAT 

STMDAT, IGROIO 
ScbbaT’ STMOAT 
STMDAT , IGROIO 


Sere] }. Saeens 
$GDDAT, se00AT 
= 


SGDDAT 
1s 


37 PUT 


37 PUT 
; “READ 
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;LOAD EXPECTED VALUE 
;LOAD OUTPUT TO A ONE 

DATA FROM STMDAT TO DEViCE REG GRDIO 
;CLEAR A BIT 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDIO,PUT DATA IN SB8DDAT. 
; COMPLEMENT IT 


'BR IF EQUAL 


;SHIFT LEFT 
;BRANCH UNTIL DONe 


eee ee eto OUTPUT GATES WITH Sizecee 


tkTESt 10 F 
i, SegtabenseeanneasenenennessnenennanansensEnaEaneeaa enna 


+éT10: 


MOV 
MOV 


OR SLOW 


#12S2S2, SGODAT 
SGDDAT , AGROIO 


@GRDIO, STMDAT 
STMDAT 


STMDAT , IGROIO 
SEROTO, STHOAT 
STMDA 


STMDAT , IGROIO 


298919, STHDAT 


STMDAT , IGRDIO 
JGROIO, STMDAT 
STMOAT 


STMDAT , IGRDIO 


Som I0. StHoaT 


STMOAT, IGRDIO 


@GROIO, STMDAT 
STMDAT 


37 PUT 


OUTPUT GATES WITH &1 


;LOAD EXPECTED VALUE 
DATA FROM SGDDAT TO DEVICE REG GRDIO 
DEVICE REG GRDIO,PUT DATA IN S$TMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GROIO,PUT DATA IN STMdAT. 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GROIO,PUT DATA IN STMDAT. 


DATA FROM STMdAT TO DEVICE REG GROIO 
DEVICE REG GRDIO,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDIO,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDIO,PUT DATA IN STMDAT. 


SEQ 0023 


eee ee - 


003772 


004016 


oo404e 


OO4O6E 


00S137 
005137 


005137 


o1273? 
005137 
005137 
005137 


005137 


LPA/LPS-1 
TEST FOR 


001562 


001562 


001562 


001S62e 


001124 


oSeSesS 


001562 


001S62 


001562 


001562 


-DRA DIAGNOSTIC 
OW OUTPUT GATES WITH #12SeS2 


001126 


001124 


KOe 
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;% MOV STMDAT,@GROIO ;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 

3% MOV @GROIO,STMDAT ;/READ DEVICE REG GROIO,PUT DATA IN STMDAT. 
COM STMDAT 

;% MOV STMDOAT,IGROIO ;7 PUT DATA FROM STMDAT TO DEVICE REG GROIO 

;* pia Sete Sree ;7READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 

3% MOV STMDAT,@GRDIO ;/7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 

;* MOV @GROIO,STMDAT ;/READ DEVICE REC GRDIO,PUT DATA IN STMDAT. 
COM STMOAT 

;% MOV STMDAT,IGROIO ;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 

;% MOV @GRDIO,STMDAT ;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
COM STMOAT 

3% oy STMDAT,IGRDIO ;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
NOP 

;* MOV 2enp10, SBODAT ;/READ DEVICE GROTO, PUT DATA IN SBODAT. 


REG 
Beg eri’ » SE00RT ;;8R IF boRRec im — 


s ee eee EET TOR Sc OM OUTPUT GATES WITH #s2cce 
tkTE TEST FOR SLOW OUTPUT GATES WITH 
j HeCHNAREanUNAENDUUAONDSEEASEERSEANOEOE SERRE CEOS EREEMEE ACOSO 


uit 


#52525, SGDDAT ;LOAD EXPECTED VALUE 
;# MOV SGDDAT,3GROIO ;/7 PUT DATA FROM SGDDAT TO DEVICE REG GRDIO 
;% MOV SONI. STIOAT ;7READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
COM TMDA 
3% MOV STMDAT , IGROIO 7 PUT DATA FROM STMDAT TO DEVICE REG GROIO 
7% MOV ERD 10, STHOAT ;7READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
COM TMOA 
3% MOV STMDAT,IGRDIO ;/7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
7% MOV Son 19. SHAT ;7READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
COM TMDA 
;% MOV STMDAT,IGRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;% MOV JGRDIO,STMDAT ;/READ DEVICE REG GROIO,PUT DATA IN STMDAT. 
COM STMDAT 


SEQ 0024 


004112 


004136 


004162 


004206 


004232 


jee] 
oO 
N 


BERR SeteReones RE tat 


eae aaa 
WONMUCWMe-O 


004316 
004320 
004336 


004354 


005137 
005137 
005137 
00S137 


005137 


ooo004 
012737 
012737 


012737 


PA/LPS- 
EST FOR 


001562 


001S62 


001562 


001562 


001S62 


001S62 


001124 


000000 


177777 


000001 


SS ee 


11-DRA DIAGNOST 
ah OUTPUT GA 


001126 


001562 


001562 


001124 


C 
tEs WITH #S2S2eS 


STMDAT , JGRDIO 


28079 » STMDAT 


STMOAT , IGROIO 


2PRRAP » STMDAT 


STMDAT , IGROIO 
@GROIO, STMDAT 
STMDAT 


STMDAT , IGRDIO 


IGROIO, STMDAT 
STMDAT 


STMDAT , IGROIO 


@GROIO, STMDAT 
STMDAT 


STMDAT , IGRDIO 
@GRDIO, STMDAT 
STMOAT 


STMDAT , IGROIO 


ScopAT, SEDDAT 
Tstle 


MACY11 27(6S4) 


37 PUT 


37 PUT 


; “READ 


;;BR IF 
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DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDIO,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GROIO,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GROIO 
DEVICE REG GRDIO,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GROIO 
DEVICE REG GRDIO,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GROIO 
DEVICE REG GRDIO,PUT DATA IN STMDAT. 


DATA FROM STMOAT TO DEVICE REG GRDIO 
DEVICE REG GROIO,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDIO 


DEVICE REG GRDIO,PUT DATA IN SBDDAT. 
Pa PATTERN 
OUTPUT REGISTER IN ERROR 


+ 9G 36 -SE-26 26-26 HE HE HE HE HE HE HE Ha HE HE HE EE EE RRR EERE EERE REARS 


BIT 
Oy Ea epee niacin cs ete i 244 ih a tao 


;/ PUT DATA FROM STMDAT TO DEVICE 
:/ PUT DATA FROM STMDAT TO DEVICE 
’ ; LOAD Mee CTED 


;7 PUT DATA FROM SGDDAT TO DEVICE 


tkTEST 12 TEST RELAY #1 STATUS 
téT12: 
MOV #0, STMOAT 
+ MOV STMDAT 10 
. MOV Se TAbaT. 
5% MOV STMDAT, AGRDAI 
: MOV Sarto , SGDDAT 
3% MOV SGDDAT, IGRSTAT 
;* MOV 


@GRSTAT , SBDDAT 


;7READ DEVICE REG GRSTAT,PUT DATA 


REG GROIO 


REG GRDAI 


REG GRSTAT 
IN SBDDAT. 


SE@ 00eS 


MAINDEC-11-DRLPJ-A 
Tle 


DRLPJ.P 


ga 
833 
834 
835 


Ree da TA aR ees SEE 


SSNS NNN 
Bourne 


pesdesdreten] 
nt 
wre 


ll 


Bb4406 


oo441e 


Bo4814 
004516 


Bouss2 


004S40 


OO4S66 
004574 
004576 


004600 
004602 


881051 


104001 


oooo04 
012737 


ooco04 
012737 
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TEST RELAY #1 STATUS BIT 


T T ,TEST IT 
001124 001126 Bit $2998 , SBDDA - c algs I 
ERROR 1 ;ERROR, RELAY 1 FAILED TO 


ss REMERRRE EEE REAREEE RRA REE RAELEERAALE SARA ELRRA RARER RRRRRE RARE ES 


:&TESt 13 TEST RELAY #2 STATUS 

ee ee ee ae 
000400 001124 * MOV #B1T8, SGDDAT ;LOAD EXPECT 

3% MOV SGDDAT,IGRSTAT ;/ PUT DATA FROM SGDDAT TO DEVICE 

5% MOV JGRSTAT,SBDDAT ;/READ DEVICE REG GRSTAT,PUT DATA 
001124 001126 BIT $c0AT, $B00AT 

BNE ST14 ;;BR IF SET 
RROR 1 ;ERROR, RELAY 2 FAILED TO 

5p MARMARA E REGAL EERE EE ERE REARS REE RRR ERE RE REAL REAR LEE RE 

:&TEST 14 TEST OUTPUT DATA ACCEPT FLAG 

ee ee 
100000 001124 * MOV #BIT1S,SGDDAT ;LOAD EXPECTED 

;% MOV SGDDAT,IGRSTAT ;/ PUT DATA FROM SGDDAT TO DEVICE 


I ES Mov SO809" aSBRRF" ; READ DEVICE REG GRSTAT,PUT DATA 
BNE erie” ;;BR IF SET 


SEQ 0026 


sET 


REG GRSTAT 
IN SBDDAT. 


SET 


REG GRSTAT 
IN SBDDAT. 


ERROR 1 ;ERROR, BIT 1S FAILED TO sET 


5g, Me aE M6 AE aE ME a a a a a a aa a aa a a aa aa a a aE 
ST 1S TESt OUTPUT INTE T 


TC ge = + -epapemeamaspamaaammaaas meceniatmaaaaaammmmmaneaanat 
1S: 


OPE 
oooc00 001562 Roy #0, STMDAT ;CLEAR STATUS 
+ % Vv STMDAT TAT ;/ PUT DATA FR TMDAT TO DEVICE REG GRSTAT 
040000 oo1124 ’ V Sorri4’ Scpbar , ; LOAD PECTED 
3% MOV SGDDAT,@3GRSTAT ;/ PUT DATA FROM SGDDAT TO DEVICE.REG GRSTAT 
3% MOV QGRSTAT,SBDDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN SBDDAT. 
001124 001126 BIT $cODAT, $BDDAT 
BNE ST16 ;;BR IF SET 
ERROR 1 ;ERROR BIT 14 FAILED TO SET 


5 5 Be Re Me AE AE EAE ae He ae aa a a aH EERE EERE REE ES 
:&TEST 16 TEST INPUT DATA READY FLAG 


TT > ee oe cea eamnempety se 0atgsn ae aagcaUanan RIN ROR A ot 
000200 001124 * MOV #8117, SGDDAT ;LOAD EXPECTED 


——EE 
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DRLPJ. Tlb EST INPUT DATA READY FLAG SEQ 0027 
eee 5% MOV SGDDAT,@GRSTAT ;/ PUT DATA FROM SGODAT TO DEVICE REG GRSTAT 
Ts] 3% MOV JGRSTAT,SBDDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN SBDDAT. 
gee 004630 37 7 001124 oo112 ° CMP $c009T, $B0DAT =C RE stat Ties 

004636 401i BEQ ST17 ;;8R IF EQUAL 
830 004640 TO4O0! ERROR 1 ;ERROR, BIT 7 FAILED TO SET 
Bos 3 eT EET INPUT INTERRUPT ENABLE 
ae oo4B42 op0004 } jacegentacncgunansacnsnesensnetes REREKAKESEERKS cREERELHSKRELKREKEER 
B36 OO4644 012737 oO0000 o01S62 MOV 80, STMDAT ;CLEAR STATUS 
898 + i MOV STMDAT,@GRSTAT ;/ PUT para F FROM STMDAT TO DEV T 
B99 004662 012737 o00100 oo1124 ’ MOV sorte. $GDDAT ;LOAD EXPECTE TED — 
201 3% MOV SGDDAT,IGRSTAT ;/ PUT DATA FROM SGDDAT TO DEVICE REG GRSTAT 
303 + MOV TAT T ;/READ DEVIC GRSTAT,PUT DATA IN AT. 
804 004710 023737 001124 OO1126 ’ CMP ScbonT,seoont | OE CPARE® a a 
90S 004716 001401 BEG BR IF EQUAL 
306 004720 104001 RROR 1 ;ERROR, BIT 6 FAILED TO SET 
03 ceppeeeerrmeeeeneemnpannrepze 
ai° 004722 00 i Se senegneagennannensuaensnenenannnsenenenennenaee eeeneneneneD 
ais Bia: fleas ggrneg oss Bare eee 
914 ; 
915 + MOV Ss T STAT TA FROM $GDDAT TO DEVICE REG GRSTAT 
318 004746 012737 140701 oo1S62 ’ MOV sooo ae tint aire ‘ert?! IT6!BITO, STMDAT 
918 + % -/ 
us aaiteet nemeelt aemane ; Mov BI*QAT pOPSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG GRSTAT 
S21 + x T 37 T F 
eran 190000 ed ore 2gty 2) sf0ont ;/READ DEVICE REG GRSTAT,PUT DATA IN SBDDAT 
BED: 001401 3s QUAL 
825 005014 104001 PEROR , Sars 
ae AAEETAET eeeesrenes Eten Taanceene caste hast ee Comec 
358 16 iat ne 
330 08026 032777 002000 174112 Bit #BIT10, ASR sTEST SMETCH BF BIT 
336 05036 BoOL3 011176 - bic T21 ? BYPASS Lome TE TEST USING THE EXTERNAL CABLE 
34 34 012737 oo0000 o01S56e2 f MOV #0, STMDAT 
936 - e 
37 DR ip Her he 3% Mov STHOAT  BGRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 


Pape Bite ren EST EXTERNAL TRANSFERS < CABLE MUST BE eaten ee ee ee SEQ 0028 
* Mov ,QGROAI ;/ PUT DATA T TO DEVICE REG GROAI 
80 posor9 GOSt? BONE oisee ae Soba EoEER EOPECTED, 


wre 


3% MOV STMDAT,@GROIO ;/ PUT ona FROM STMDAT TO DEVICE REG GRODIO 
+ MOV BDDAT =; /READ DEV G GRDAI,PUT DATA IN SBODAT. 

0051 3737 001124 oo1126 ' fe SBDDAT X 365 RS 

005 1 14 ST ;;8R IF eee 

051 i E INPUT DID NOT EQUAL THE OUTPUT REG. 


a a ae eee ee 


#3 
gen ;&TE W e 
352 134 j Hasteeneuyeusnennetnedsassneneesaenaeenennennaesnennennenanens 
324 136 p0009? oo00000 001562 MOV 80, STMDAT 

;% MOV STMDAT ROIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 

005154 012737 177777 001562 MOV 8-1,5 

959 3% MOV STMDAT I _;7 PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
360 00S172 012737 177777 001124 MOV 8-1, T ; LOAD CTED 
ee 5% MOV SGDDAT,@GRDIO ;/ PUT DATA FROM SGDDAT TO DEVICE REG GRDIO 
964 4 5% MOV 1, $8D08T ;/READ DEV ICE REG GRDAI,PUT DATA IN SBDDAT. 
38 Beers f 95128, 7 001124 001126 A G00A * SBODAT a ia i 
96 23 Bo 2 si NPUT DID NOT EQUAL, THE OUTPUT 
368 51S wrap aRBLE CONNECTED 777 
pA tiEST og tiecT Input Wii aaeacs 
372 32 j HASENSEweuxaunntnnatnednerseeese Ha taeenensnenaennennecneciney: 
ard ppe534 012737 oo0000 001562 MOV #0, STMDAT 
97 5% MOV STMdAT 10 :/ PUT DATA FROM STMDAT TO DEVICE REG GROIO 
377 o0S2S2 012737 177777 0o01S62 MOV #-1, STADAT 7 
379 + MOV STMDAT, ;7 PUT DATA FROM S$TMDAT TO DEVICE REG GROAI 
380 005270 012737 oS2S525 oo1124 ’ MOV Se oees' SapbAT ;LOAD EXPECTED 
388 3% MOV SGDDAT,3GRDIO ;/ PUT om FROM SGDDAT TO DEVICE REG GRDIO 
984 . MOV 1,$BDDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN SBDDAT. 
985 005316 023737 001124 oOl126 ’ CMP $c f ’ SBODAT = COMPARE : 
986 005324 001401 BEQ ;;BR IF EQUAL 
387 326 104002 ERROR 2 ;ERROR, INPUT DID NOT EQUAL OUTPUT 
989 
3990 g errr Ce ee wee eee 
991 ATE T 24 TEST INPUT WITH 


1 
PPE Terre ert eerrttrttirrerr errr errr tr r tt TTT Trt ty 
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001562 
001562 


001124 


001126 


001110 
801886 


001124 
001536 


001562 


001126 
001126 


WITH ®& 


;7 PUT DATA FROM STMDAT TO DEVICE REG GROIO 

;7 PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD EXPECTED 

;7 PUT DATA FROM SGODAT TO DEVICE REG GROIO 

; 7READ OE C G GRDAI,PUT DATA IN SBDDAT. 


er iF é 
;ERROR, INPUT DID NOT EQUAL OUTPUT 


so $6-36-36 36 SE 36-26 36 2 Sb ab ab SE Se ab SE A a6 aE aE 2 aE Eb a Ea EE a a 0 a a 0 a a a 2 Hk 


TST24: SCOPE 
MOV #0, STMDAT 
* iB ETP 
;* a a $[deesd ScbOA 
; MOV soainanendl 
4 MOV 9 
ARREST 
ERROR 2 
té 
#2$ , SLPERR 
hoy ROfLCH, BRLEVS 
es: iy Vv Vv T 
BIT ;NOTLCH 
1s 


SGDDAT , IGROIO 





TEST 2S FLOAT A 1 ACROSS NON-LA 
ee Ee ee ee 


;LOAD ERROR SCOPE RETURN 
Ger NON-LATCH 


EST FOR_NON-LATCH 
a3 IF LATCHING 


se 


7 PUT DATA FROM SGDDAT TO DEVICE REG GRDIO 


MO ERAS TO G gAQAT rue DATA IN SBDDAT. 


;;BR IF EQUAL 
s ANEUT 


;SUB-TEST CLEAR THE OUTPUT BIT AND TEST THE INPUT DOES NOT LATCH 


3S: 
3% MOV 10, STMDAT 
BIC SeBBAT STMDAT 
; MOV STMDAT , IGRDIO 
; MOV : T 
‘ BIC Breva; SERRAT 
CLR GODA 
BIT BRLEVe, SBDDAT 
BEQ i$ 
ERROR 2 


;7READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 


;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;/READ DEVICE oe GROAT Pur DATA IN SBDDAT. 
s 


sent 0 LATCH BI 1 


*TESt FOR BIT 
;;BR IF CLEARE 
CGRPUT- BIT LATCHED IN ERROR 


ISTER 
a EATCH/NON-LATCH SUPPLIED ? 
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ORLPJ.P11 Tes FLOAT A 1 ACROSS NON-LATCHING INPUT BITS SEQ 0030 


;WAS CORRECT LATCH/NON-LATCH SUPPLIED ” 





1047 
1048 
1 001556 1S: Eve ; PATTERN 
ies Boeess Boras BaeEi(‘<i‘éi GR UNTIL DONE 
1 
1 - EEEERXEKERLESAEKKARHERH ERE RE SERRE SHRHKERKEEMERSREEREELERLHRHEEE 
1064 26 FLOAT A 1 ACROSS LATCHING I 
i ; ErSssaSbsasnssatboouutatassnnastiesasttedtesteesniessuensessen 
42 001110 v 3L TURN 
tise Hieess Rises SBGRST BB RY STAB 1808 ERBEE, SOTELTE 
O60 001124 001536 2S: IT T,NOTLCH Ss ATCHING 
tee? BREESE BETGRE Bz pr RPT Beh 
1063 o00S6S2 012737 o000000 001562 MOV #0, STMDAT 
1065 3% MOV STMDAT 10 :/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
ibe 005670 012737 177777 001562 MOV i ; 
1968 r MOV STMDAT,3GROAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
ra sgopar,.20R0 
107 5% MOV T 10 ;/ PUT DATA FROM SGDDAT TO DEVICE REG GRDIO 
107¢ 005716 012737 o00000 001562 MOV #0, STMOA , 
‘ ia 3 MoV STMDAT,3GROIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
1 5 MOV T  ;/READ DEV G GRDAI,PUT DATA IN SBDDAT. 
1 005744 023737 001124 001126 CMP 3e6pat" SERRAT CanBARE 
107¢€ 752 1401 BEQ ss BR IF teva 
1073 4 1 ERROR 3 ci oa i jINPUL REG TER FAILED To Lat ATCH DATA 
1081 ite RUN ‘REALLY, “LPS-ii iF * eDR™ USE UA ess ier 
1083 00S756 006337 001124 1S: ASL SGDDAT CH PATTERN 
i 005762 001327 BNE 2s UNTIL DONE 
1 F} te mmr rremrrerar tte ret eens 
108 téTES FLOAT A O S LATCHING INPUT BITS 
t Ae i}: e 2 ag, emenpapnmasenioo ney cepmnpumnpenn fasion, 
108 1 006002 001110 #2$, SLPERR ;LOAD ERROR SCOPE RETURN 
1032 012737 000001 001560 #8110, BRLEV3 *LOAD EXPECTED 
1 006002 033737 OO01S60 001536 2S: BIT BRLEV3, NOTLCH :TESt FOR LATCHING 
: 006010 001055 BNE 1S F *BR IF NOT 
: 006012 012737 oOO00000 o01S62 MOV #0, STMDAT 
1098 5% MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMdAT TO DEVICE REG GRDIO 
1099 006030 012737 177777 001562 MOV #-1, STADAT 
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| @RLPJ.P11 127 LOAT A O ACROSS LATCHING INPUT BITS - SEQ 0031 
5% MOV STMOAT,9GROAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
1 3 477777 001124 MOV 8-1 T ;LOAD 
4 1536 001124 BIC NOTLCH, SGDDAT , 
4 NOP 
37 001560 001124 BIC BRLEV3, SGDDAT ;MAKE BRLEV3 
3% MOV SGDDAT,3GRDIO ;/ PUT DATA FROM SGDDAT TO DEVICE REG GRDIO 
006104 012737 oO0000 001562 MOV #0, STMDAT 
5% MOV STMOAT,@GRDIO ;/7 PUT DATA FROM STMOAT TO DEVICE REG GRDIO 
3% MOV QGROAI,SBDDAT ;/READ DEVICE REG GRDAI,PUT DATA IN SBDDAT. 
9061 923737 001124 001126 CMP SGDDAT; SBDDAT =C 
1 1401 BEQ i$ ;;BR IF EQUAL 
006142 ERROR ‘ ; INPUT REGISTER FAILED TO LATCH DATA 
O06 14H 006337 001560 1S: ASL BRLEV3 ;CHANGE PATTERN 
iSO 001314 BNE 2s ?BR UNTIL DONE 


pp epeumgasanensnpsepegoseaseeere rt att sa 


settee tte eeeecticiceenaeareneeel 


cool oul aul qual gud opmd aml omd gual aud ol ounlamaamnd oul amd-and anlaul ond and and aul ec] and aol eed eel el eel eed ee eee 


;&kTEST 30 TEST FOR SLOW INPUT GATES WITH #125252 
pi. Re, 
006152 000004 T30: SCOPE 
006154 012737 125252 001124 MOV 8 SGDDAT sLOAD EXPECTED 
006162 043737 001536 001124 BIC ROTLERS T + EORVERT 
006170 013700 001124 MOV T ?LOAD PATTERN 
006174 012737 O00000 001562 MOV , STMOA 
5% MOV sneer QGROIO =; 7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
006212 012737 177777 001562 MOV #-1, STADAT 
3 MOV STMDAT,IGRDAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
006230 010037 o01S62 MOV RO, STMDAT ;LOAD OUTPUT 
3% MOV STMpAT 20 QGRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
006244 012737 oD0000 o01562 MOV 
5% MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
5% MOV QGRDAI, » STHOAT ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
006272 013701 001562 MOV STMDAT, 
» MOV STMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
006306 050137 o01S62 . BIS AERO TOAT , ’ 
Si oot enna 5% Mov STMDAT , IGROAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
53 Ope 354 010037 o01S62 MOV RO, STMDAT ;LOAD OUTPUT 
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ooooco 001S62 


001S62 


001562 


001562 


oooooo 001562 


001562 
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001S62 


oooooo 001562 


001562 


001562 


001S62 


oooocs)§ 001562 


001562 


MOV 
MOV 


saraensaro™ 


STMOAT , IGROIO 


@GROAI , STMDAT 
STMOAT,R1 


a ea 


TMDAT , IGROAI 
RO, STMOAT 


STMDAT, IGRDIO 
#0, STMDAT 


STMDAT , IGROIO 


ereeat. are 


QGRDAI, STMDAT 
R1, STMDAT 


TMDAT , IGROAT 
RO, STMOAT 
STMDAT , IGROIO 
area aro" 
aeree EL STHOAT 


STMDAT , IGRDAI 
RO, STMOAT 


STMDAT , AIGRDIO 
#0, STMDAT 


STMDAT , IGROIO 


Sfapatal 


@GRDAI , STMDAT 


;7 PUT 


1S-DEC-77 08:37 PAGE eS 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO dEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMdAT TO DEVICE REG GROIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


i ond 
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i TEST FOR SLOW INPUT GATES WITH #125252 SEQ 0033 
006666 050137 001562 BIS R1, STMDAT 

5 eB TMDAT,@GRDAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
88585 803499 001562 V , STMOAT ;LOAD OUTPUT 

:% MOV STMGAT ,9GROIO ;7 PUT DATA FROM STMDAT TO DEVICE REG GROIO 
006720 012737 oO00000 o01S562 MOV #0, $T 

; MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 

. % Vv TMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
006746 013701 001562 7 HOV 29hBat: ai"O* : 

5% MOV 1,$TMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
006762 050137 001562 BIS RTO FOAT : , 

ova “eno 5% Mov STMDAT , 3GROAL ;7 PUT DATA FROM STMDAT TO DEVICE REG GRDAI 

899008 010037 o01S62 MOV RO, STMDAT ;LOAD OUTPUT 

5% MOV STMOAT,9GROIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
007014 012737 o00000 o01S62 MOV #0, STMDAT 

5% MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 

3% MOV QGROAI,STMOAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
007042 013701 001562 MOV STMDAT,R1 

5% MOV QGRDAI,STMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
007056 050137 001562 BIS R1, STMDAT 
coonete eae 3% " v TMDAT,@GRDAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI ‘ 
007074 010037 o01S562 MOV RO, STMDAT ;LOAD OUTPUT 

5% Vv STMDAT .9GROIO ;/7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
007110 012737 oo0000 001562 Vv #0,$T 

;% MOV STMDAT,9GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 

5% MOV QGRDAT, STMDAT ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
007136 013701 001562 MOV *R1 

+ MOV I,$TMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
007152 050137 001562 ‘ BIS ATOR OAT : 
ig 5% Mov STMDAT,@GRDAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
007170 010037 oD1S62 MOV RO, STMDAT ;LORD OUTPUT 

5 MOV STMDAT,9GRDIO ;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
007204 012737 o00000 o01S62 MOV #0, STMDAT 
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661184 


MOV 
MOV 


Bye 
MOV 


MACY11 27(654) 


STMDAT , IGRDIO 


@GRDAI , STMDAT 
STMDAT, RI 


QGROAI, STMDAT 
Ri, BOR OP HOAT 


ene 
RO, STMDAT 


STMDAT , IGROIO 
#0, STMOAT 


STMDAT , IGROIO 


aneeat:aro" 


QGRDAI , STMDAT 
R1, STMOAT 


TMDAT , IGROAT 
RO, STMDAT 


a 
STMDAT , IGROIO 
seepage 
area 


ae cats 


Sadat, SEDDAT 


gstai 


NSFCER: SeDbaT 


SGODAT 


37 PUT 
; 7READ 


37 PUT 
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DATA FROM STMDAT TO DEVICE REG GROIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;L.0AD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GROAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
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TEST FOR SLOW INPUT GATES WITH #S2eS2S 
000000 001562 MOV #0, STMDAT 

5% MOV STMDAT,@GRDIO ;/ PUT 
177777 001562 MOV #-1, STHDAT 


;# MOV STMDAT,IGROAI ;/ PUT 
001562 MOV RO, STMDAT 

;# MOV STMDAT,IGRDIO ;/ PUT 
000000 001562 MOV #0, STMOAT 

;# MOV STMDAT,IGRDIO ;/ PUT 

;# MOV QGRDAI, TMOAT ; READ 
001562 MOV STMDAT, 

- MOV I STMOAT ; 7READ 
001562 , BIS at SIMA 

;* MOV pemeevert: 37 PuT 
001562 MOV , STMDAT 

. MOV STMDAT IO ;/ PUT 
oo0000 oo1sbe ° MOV So STMOAT : . 

5% MOV STMDAT,IGRDIO ;/ PUT 

; MOV QGROAI,STMDAT ;/READ 
001562 MOV STMDAT,R1 

. 5% MOV TMDAT ;/READ 

001562 BIS aeRO a OAT ’ 

5% Mov TMDAT,@GROAI ;/ PUT 
001562 MOV RO, STMDAT 

;% MOV srrper QGRDIO —;/ PUT 
oo0000 001562 MOV STMDAT 

;# MOV qnent, @GROIO = ;/7 PUT 

5% MOV QGRDAI, STMOAT ; READ 
001562 MOV STMDAT,R 

3% MOV QGRDAI,STMDAT ;/READ 
001562 BIS R1, STMOAT 

3% MOV $TMDAT, IGRDAI / PUT 

COM RO 

001562 MOV RO, STMDAT 
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DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMOAT. 


DATA FROM STMDAT TC DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GROIO 
DEVICE REG GRDOAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
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;% MOV STMDAT,9GRDIO ;/ PUT 
000000 001562 MOV #0, STMOAT 
; MOV STMDAT,3GRDIO  ;/ PUT 
5% MOV QCRDAT, $TMOAT ; /READ 
001562 MOV STMDAT, RI 
’ 5% MOV IGROAI,STMDAT ;/READ 
001562 BIS R1, STMOAT 
5% Mov TMDAT,@GROAI ;/ PUT 
001562 MOV RO, STMDAT 
:% MOV STMDAT,3GRDIO ;/ PUT 
oo0000 o01S62 MOV #0, STMOAT 
;* MOV STMDAT,3GRDIO sx PUT 
;% MOV QGROAI,STMDAT ;/READ 
001562 MOV STMOAT,R1 
;% MOV QGROAI,STMDAT ;/READ 
001562 BIS R1, STMOAT 
5% Mov STMDAT, AGROAI 37 PUT 
001562 MOV RO, STMDAT 
% MOV STMDAT,3GRDIO ;/7 PUT 
oo00000 001562 MOV #0, STMOAT 
# MOV STMDAT,IGRDIO ;7 PUT 
3H MOV ,STMDAT ;/READ 
001562 : MOV STRAT" AL ’ 
5% MOV QGROAI,STMDAT  ;/READ 
001562 BIS R1, STMDAT 
;# Nov STMDAT,@GRDAI ;/ PUT 
001562 MOV , STMDAT 
5% MOV STMDAT,@GRDIO ;/ PUT 
oo0000 001562 MOV #0, STMDAT 
;% MOV STMDAT,JGRDIO _;“ PuT 
5% MOV QGROAI,STMDAT ;/READ 
001562 MOV STMOAT;R1 
7% MOV @GRDAI , STMDAT ; 7READ 
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DATA FROM STMDBT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMdAT. 


DEVICE REG GRDAI,PUT DATA IN STMdAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
DATA FROM STMDAT TO DEVICE REG GRDIO 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DEVICE REG GRDAI,PUT DATA IN STMDAT. 


3 
ime 
VO 
= 5 


REG GOIRALOV- OBB = 


ee ee ee Fs 
SESSLES ESS SESSLESSLLCLL LE ag 


RRPGSE 


Saad 
LEE 


££ 
pa a eT ty 


ee ee he be he he ee pe ee 
FEFFE 
o 
uP 3 


SELES CCC CL 


a 


—— 
£ 
ul 
un 


Big037 


012737 


013701 


050137 


biaus? 


012737 


013701 
050137 


00S1 
0100 


012737 


013701 
050137 


005100 
010037 


012737 
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001562 


001562 


oooo00 001562 


001S62 


ooiss2 


001562 


oooooo 001562 


001S62 


001562 


001S62 


ooo000 001562 


STIC 
GATES WITH #S2eSe5 


BIS 


KO3 
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R1, STMDAT 
pean 
, STMDAT 
a il 
STMDAT , IGROIO 
PSs tail 


IGROAI, STMDAT 
R1, STMDAT 


TMDAT , IGRDAT 
RO, STMDAT 


STMDAT 10 
3o STMOAT :, 
STMDAT , IGRDIO 


enna » STMDAT 
TMDAT,R1 


1, STMDAT 
RT eT MOAT 
TMDAT , IGRDAI 


RO, STMDAT 
STMDAT 10 
3o STMOAT ' 

STMDAT, IGRDIO 


@GROAI , STMDAT 
STMDAT,R1 


JGROAI , STMDAT 
R1, STMDAT 


ae , IGRDAI 
RO, STMOAT 


STMDAT, IGRDIO 
#0, STMDAT 
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;7 PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
;7 PUT DATA FROM STMDAT TO DEVICE REG GROIO 


;7 PUT DATA FROM STMDAT TO DEVICE REG GROIO 
;7READ DEVICE REG GROAI,PUT DATA IN STMDAT. 


;7READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 


;7 PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
;LORD OUTPUT 
;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 


;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;7READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 


;7READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 


;7 PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT 
;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 


;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;7READ DEVICE REG GRDAI,PUT DATA IN STMdAT. 


;7READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 


;7 PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
;LOAD OUTPUT. 
;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 


SEQ 0037 


MAINDEC-11-DRLPJ-A 
DRLPJ.P11 
1479 
1480 
148 
is 010742 013701 
14 
i. 010756 050137 
14 
i. 010772 005100 
4 10774 010137 
4 11 37 
4 11 1401 
: 011010 10400e 
4 
4 
4 
4 
4 
S 


BSPIRR Lut Oe VO 


O1115 big7a? 
11014 012737 
11022 012737 


0110S0 022727 


Do 


ooo 
bp pe 
ba be be 


066 023737 


hed 984 Abt 1 


Pb a bh be pe be pe 
WO NOUIL Wr 


011100 o00004 
011102 012737 
011110 005037 


at teat 


EEE 
é 
Ss 


[cl gud oud gud oul oul aml oul endl oul omaaund oval onal oul tent onl uml onal oral cred eel ol ol ond el ed el ed ed ed ed ad ed ed ed ed ed ee ee 


wu 
be 
_ 
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ee 
bb 
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_ 
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<£ 
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= 
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EST FOR SLOW INPUT GATES WITH #52525 SEQ 0038 
3% MOV STMDAT,IGROIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
001562 . MOV 
3% MOV QCROAI,STMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
001562 BIS R1,STMOAT 
5% mov STMDAT , SGROAL ;7 PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
001126 MOV R1, SBDDAT sL VALUE READ 
001124 001126 CMP $Gb08T, SBDDAT : 
BEQ T32 ;;B8R IF EQUAL 
ERROR 2 
+ LERSGEEGEREREERREGR REE R REARS RE SERRE RRRE RRR RRRRRERRERRRRKRHE 
fATest 32 TEST THAT WHEN OUTPUTTING THE INPUT DATA READY FLAG SETS 
. ee ee 
o00200 001124 : Aoy #BIT7  SGDOAT ;LOAD EXPECTED 
oo00000 001562 MOV ST 
5 MOV STMDAT,IGRSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG GRSTAT 
3% MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
oo00000 ooc000 CMP #0, #0 ; DELAY 
5% MOV QGRSTAT,SBDDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN SBDDAT. 
001124 001126 CMP $GDDAT, , SBDDAT asad 
PRaor 1 ax  ONPUT DATA READY FLAG FAILED TO SET 


80 
rs 


001124 


ooocco 


;TESt THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 


«9 36-36 2 SE 06 aE 0 SE 0 A A 0 a a A a a a a a a a a a HE 
T TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 
lasted eageesutsanaratnastsoasssattestessessaarentionranesie 


igeses 
#81715, SGDDAT ;LOAD EXPECTED 
CLR STMDA 
ogi MOV STMDAT,IGRSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG GRSTAT 
5% MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
CMP #0, #0 
+ i Vv TMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
' v ona! 35 : , 
3% MOV QGRSTAT, SBDDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN SBDDAT. 
TST BDDAT 
BMI TST34 ;;BR IF SET 
ERROR 1 ; INPUT DATA READY FLAG FAILED TO SET 


i* MOV BORDA. § »STMOAT =; “READ DEVICE REG GROAI,PUT DATA IN STMDAT. 
| 
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DRLPJ.P11 133 TESt THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET SEQ 0039 

1233 s TEST THAT THE DIGITAL 1/70 DOES NOT INTERRUPT 

| 1535 aansite T INPUT-OUTPUT FLAGS BUT DO NOT ENABLE INTERRUPTS 

jess . [Hi eenaeeercenerseecerreeetterirseestess 
1538 if 34 TES T INTERRUPT INPUT BITS SET INPUT READY FLAG 
1333 Tae penomemapeamny sas eeanapenapanee ce 
154 B11 478 999993 002000 167732 BYT #81T10,a9SWR TEST CABLE SWITCH 
i 4 011206 001137 BNE TST35 onrsaed IF NO 170 CABLE 
1544 1121 00111 v ¥ RR RETURN 
fee GusIe BIE7e LRG? BBILLB ROY MELSLER Eva ripRaGee" Eri 
1 11 11 1S: CLR t ik “ DATA 
i849 011230 012737 O00200 001124 MOV #81T7, SGDDAT *LOAD GOOD DA 
: 49 011236 033737 001560 001540 BIT BRLEV3, NOTINT a: on s TEST Ir SET TO INT 
te Bi isie poss4s oo0000 001562 MOV 38, sTHOAT “ 
1 3% MOV STMDAT,IGRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
1584 011264 012737 177777 001562 MOV #-1, STMDAT 
1 % MOV ;/ PUT DATA _FROM T TO DEVICE REG GRDAI 
1357 011302 012737 oOo0000 001562 MOV so inbat ;CLEAR ST TU 
: 59 ;% MOV STMDAT,JGRSTAT ;/ PUT DATA FROM STMdAT TO DEVICE REG GRSTAT 
: 3% MOV BRLEV3,3GRDIO ;/ PUT DATA FROM BRLEV3 TO DEVICE REG GRDIO 

3 + v TMDAT,3GRSTAT ;7 PUT DATA FR TMDAT VI TAT 
18e4 ‘ on rs ” ATROULD REMAIN Set at SEREE? gf SIDE 
1 3% MOV RSTAT,STMDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN STMDAT. 
1367 O11 005737 001562 TST eohoat . 
1 11354 100401 BMI 2s ;;BR IF 5 ae 
1569 011356 104010 ERROR 10 INTERRUPT BIT FAILED TO SET INPUT READY 
1570 "DID OP RATOR CORRECT 
: a : INPU INTERRUPT git 7? 
1573 011360 2s 
1575 ;% Vv GRDIO,STMDAT ;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
1876 011370 043737 OO01S60 001562 BIC Bares: StH :.” 
1578 3% MOV STMDAT,@GROIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
1 3% MOV 2 ,STMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
1381 011416 053737 OO1560 o01562 BIS 3 Siatey STnbaT , 
1583 cates . 3% Mov STMDAT,IGROAI ;/ PUT DATA FROM Secre ar TO DEVICE REG GRDAI 
ee 

15Bs Bi idaa p03937 ADAH 001562 MOV SOE AT + ETE AR A Gg°° 





- 


- —  ——  --- - a RR 
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DRLPJ.P11 TEST THAT INTERRUPT INPUT BITS SET INPUT READY FLAG 
1587 ;% MOV STMDAT,JGRSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG GRSTAT 
1286 . MOV TAT, STMDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN STMDAT. 
1390 11466 1137 001562 oo1126 ’ MOVB aoRBAt $B0DAt : ; 
1591 O114 1 1 BPL 3s ;;BR IF CLEARED 
159¢ 11476 104001 ERROR 1 ; INPUT READY FAILED TO CLEAR 
1838 011509 006337 001560 3S: ASL BRLEV3 ;CHANGE BIT 
1595 011504 001247 : F NOT 
1333 iiititii iii ri ttitittttttiiititiitititiiitii tte erteeieey 
159 :&TESt 35 TEST THAT NON-INTERRUPT INPUT S DO NOT SET INPUT READY FLAG 
1238 = > LEKEKEKREREREREEAEKRESSRRAERE LEE RERERKHRSRKKRRRRARERRRKARLERKERE 
i 80 Blt i neeread 002000 167422 1S138: ate T10, aSWR TEST CABLE SWITCH 
101 11516 paf0%6 BNE wert? : ;;BYPASS’ IF NO I/0 CABLE 
1603 O11 127 1110 MOV 81S, SLPERR sLOAD ERROR SCOPE RETURN 
1604 1i25e Bt 33 rereategt poideo MOV r o+3 oR eva ?LOAD NON-INTERRUPT BIT 
1605 011534 7 00 O01126 1S: MOV $800AT *LOAD BAD DATA 
1606 11542 i124 CLR r :CLEAR GOOD DATA 
1608 011546 033737 001560 001540 BIT BRLEV3, NOTINT -TEST IF SET TO INT 
1609 11884 o014 BEQ ;;NO SKIP AND TRY NEXT BIT 
1616 115 127 oo00000 001562 MOV , STMDAT 
161¢ 3% MOV STMDAT,3GRDIO  ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
1613 011574 012737 177777 001562 MOV #-1, STADAT 
1615 3% MOV STMDAT,@GRDAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
1616 011612 012737 oo0000 001562 MOV #0, STMDAT ;CLEAR STATUS 
1618 5% MOV STMDAT,IGRSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG GRSTAT 
1615 011630 013737 O01560 o01562 MOV BRLEV3; STMDAT ;LOAD OUTPUT/INPUT 
1est ; MOV STMDAT,@GRDIO  ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
ibe 011646 012737 oD0000 o01S62 MOV #0, STMDAT ;CLEAR FLAG FROM DATA READY 
1624 3% MOV STMDAT,JGRSTAT ;/ PUT DATA FROM STHDAT TO DEVICE REG GRSTAT 
1be5 ;SHOULD REMAIN SET VIA DIRECT SET SIDE 
1ps6 3% MOV QGRSTAT,STMDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN STMdAT. 
1628 011674 105737 001562 TSTB STMDAT 
1629 611709 100001 BPL a8 ;;BR IF CLEAR 
1630 0611702 104011 ERROR 11 ; INPUT NON-INTERRUPT BIT SET INPUT READY 
1631 :2? DID OPERATOR GIVE CORRECT 
1632 :INPUT INTERRUPT BITS 7? 
1633 ~ 
1P3e 911704 006337 001560 3S: ASL BRLEV3 ;CHANGE BIT 
1636 11710 OO131i BNE 1S :BR IF NOT DONE 
16. fp MMR MRR EGR AAR K ERE REAR EE EERE ERESRRE REE REE 
te :&TEST 36 END OF THE PROGRAM 


5p MMM RAKE RHE K ERE RAR ARERR EA RRRAER 





con meee | 
' 164 11712 
| iB 112 4 
164 1 
; é644 Q11 
ies BH 
iba? es 
1 il 
12 1l 1 
fad 
i 
ae 
34 B1i974 


uw 
Di 


FREEReS 


667 
See Bees 
671 
£5 BIB BBY 
Ge Bigtme o12737 
ee 012104 012737 
Ma Ol2122 012737 
ees 
is 
e 
686 
687 012160 012737 


012176 012737 


ba NaN Mi 
BF ininitet avi: 


ee ee eb ee ee 


LS UEite Pas Runes 


001166 
44 167606 
167600 


000001 001S6e 


§a5400 001562 


040000 012246 
oon000 001562 


leSeSe 001562 


ooooco 001562 


OS2eSes 001562 


TST36: SCOPE 


mov ee 
MOV IVA 
CLR 

MOV aGRIVB 
ae 

JMP 


3% 
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;;00 1 ITERATION 
;RESET INPUT VECTOR 
;RESET OUTPUT VECTOR 


bitter a7 misc, EXTERNAL Locic TesT 


"eS ceeGUAHHENNOTESDRESKSSEESATSSESERTTESEESESEASESERREEEEEEEEES 


teT3z¢ nov aSTACK, SP 


etR . 
;# MOV SGDDAT , IGRSTAT 
3% MOV SGDDAT , IGROIO 
‘* fov SB P0TsPhoar- 
3% MoV T. QGRSTAT 
mov pert §. STMDAT 
5% MOV TMDAT, IGRSTAT 
A Ett uy? 
FLIP: MOV #40000, EXTCNT 
MOV #0, STMDAT 
‘se Movs S]beBea°S Feber 
5% MOV STMDAT, IGRDIO 
5% MOV JGROAI , EXTTMP 
3% Mov EXTTI gEROA 
‘* MOY $EBOBE- SFRBAT 
5% MOV STMDAT, IGRDIO 
5% MOV QGRDAI , EXTTMP 


;SET_UP_STACK 
;START THE MICRO-CODE 
;7 PUT DATA FROM SGDDAT TO DEVICE REG GRSTAT 
37 PUT DATA FROM SGDDAT TO DEVICE REG GRDIO 
;7 PUT DATA_FROM SGDDAT TO DEVICE REG GRDAI 
: ;SET RELAY #1 
;7 PUT DATA STMDAT TO £ REG GRSTAT 
, ;T alt He .NPUT-OUTPU put REG 


;7 PUT DATA FROM_STMDAT TO DEVICE REG GRSTAT 
; TOGGLE THE INPUT-OUTPUT REG 


;LOAD COUNT 


37 PUT DATA FROM _STMDAT TO DEVICE REG GRDIO 
;LOAD OUTPUT 


;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;7READ DEVICE REG GRDAI,PUT DATA IN EXTTMP. 
7 PUT DATA FROM EXTTMP TO DEVICE REG GRDAI 


;7 PUT DATA FROM om TO DEVICE REG GRDIO 
;LOAD OUT 


;7 PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;7READ DEVICE REG GROAI,PUT DATA IN EXTTMP. 


SS 
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ORLPJ.P1l 137 E SEQ 0042 


J. MISC. ~ 
69S 
696 ;* MOV EXTTMP,@GRDOAI ;7 PUT DATA FROM EXTTMP TO DEVICE REG GRDAI 
% B13849 Bor331 012246 Bre — ;FINISHED COUNT 
1 TS PC ;EXIT 
701 Ol2e44 000000 XTTMP: O 
lee4%6 000000 XTCNT: O 











1 
1 

1 

1 

: 

1? .SBTTL END OF PASS ROUTINE 

190P 3 ge 4 rete 
1708 ia FoPROGRAM AFTER 1 2% PASSES THRU THE PROGRAM 

i517 Hi IF Ty hoe fo Fu AU 

1712 Hate F HE Detines ei INDICATE THE “END OF PASS” LOCATION 
1714 a 

1715 O1 SEOP: 

1718 1 sc 

171 1 ce . TSTNM 3; ZERO THE TESt NUMBE! 

i718 1 CLR TIMES 5 a pT he ass & hones TTeRaT10NS 
17 i 001204 are #1 , SPASS $$ MeN NEG. NUMBE 

17 1 ees DEC (PC)+ z3L 

15 i ; aah Sp0acn aa 

1 1 MOV (PC)+, a(PC)+ ? RESTORE COUNTER 

17 1 SENDCT: ,WORD 1 

1 1 $f T 

17, 1 YPE SENONG 3; TYPE a op ASSr 

15 i _ endear $iGET 4 i FPR 

17 ; RESET A a Ie Ro MONT 

i SENDAD: J PC, (RO) TO MONITOR 

1735 i Nop ite 

13 SDOAGN uation 

1 1e33 * IMP (PC)+ ; ; RETURN 

1 53.36 SRTNAD: - WORD ULNUL 

17 1234C 377 000 S$ENULL: — - a) ;NULL CHARACTER STRING 

1739 18345 1 ae 942116 SENONG: Tz <i8><12>/eno pass? 

174 1 SEE 2 F 

ie Bigee Siew? Ol is ge ig 

1744 O1 1 002662 one IOTEST 

1746 1 10S: 0 

1 1 

1 1 


/STATUS REGISTER IN ERROR/ 


Nv 


$5 
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ea 
RR 
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BR 
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8 


DO4 
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DRESSFIL ca or AEE’ HETHcOM® DrearostiC 


SEQ 0043 
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-ASCIZ /INTERRUPT INPUT BIT FAILED TO sET INPUT READY FLAG/ 


-ASCIZ /OUTPUT FAILED TO INTERRUPT/ 


-ASCIZ /OPERATOR INTERVENTION ERROR/ 


-ASCIZ /INPUT REGISTER IN ERROR/ 


u 
z 
2 
a 
z 
c 
: 
) 
: 


é £ & 


aN o2°28 a _ = 
a ok See 3 


-ASCIZ /OUTPUT REGISTER IN ERROR/ 


-ASCIZ /UNEXPECTED INTERRUPT/ 
-ASCIZ /NON-INTERRUPT INPUT BIT SET INPUT READY FLAG/ 


111 
117 
1 
if 
ii? 
OS2S20 EM3: 
pies 
if 
125 
125 
2514 
1 
1 
1 
t EM7: 
1 
1 
Lice EM10: 


Sees ate 960103 DH1: -ASCIZ /ZERRPC STATUS EXPECTED/ 
A 
1 el 


tr 


tyler 





San Suan fam fam Juan. fam pam han pan. Suan fan pan fan fan pen pan pan pem fan fan pan. fan pan ban an San ban juan }an han pen han fen )an ben hanton harbor hehehe berber ber be bar ban bee Bios bee bee ee) 
Qo000 


RRR RRCRER RRR RRERERREERRRRERR RRR RRR EEE R EERE EET ae 


kd ad ad nd ad Od hd nd od Od Od nd md Od nd nd od od oad Od od Od nd od dd ed ed ad ed dd od ed Od wd dd od nd ad dd dd ddd 
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PJ.P1l END OF PASS ROUTINE 
eas me DHe: -ASCIZ ZERRPC INPUT EXPECTED/ 
al ae DH3: -ASCIZ /ERRPC OUTPUT EXPECTED/ 
0421 


fe bs be be bh bee be pm he Re 2 


OS1i22 O41S20 DHY4: -ASCIZ /ERRPC/ 
1456 Bugees DH10: -ASCIZ /ERRPC STATUS EXPECT INPUT BIT/ 
12 


iss 
Jeu 
re aie 
lll EVEN 
001126 001124 OT1: RRPC , SBDDAT , SGDDAT , 0 


eat 001124 Tia:  $ERRPC’ S80DAT, ScDDAT, BRLEV3, 0 
800 


Oe ee ee 


DONO UL We 


- 
‘— 


Dae ee be ee be 
of ZFENENR=BR= 
& 


000 OF1: -BYTE 0,0,0,0 
DOO OF10: -BYTE 0,0,0,0,0,0 
020122 MSGSWR: .ASCIZ <15><12>/SWR = / 


De bee bbe de ee he ee eb bb Bo Ps = bb Be be eh 








: 


- EVEN 
“SBTTL GETSWR SUBROUTINE 
: 4 2737 000176 001140 GETSWR: CMP SSWREG, SWR TESt IF REAL SWR 
13264 I 013272 Fee gbss $7 1YPE “fee, a NG 
D Ol 1 BR 64s HE ASCIZ 
3 ee iig58: -ASCIZ <15><12>/DEPRESS ASST 9 
1 18 HALT ;WAIT FOR OPERATOR 
13314 RTS PC :EXIT 
1 i 401 1S: T 
1 1324 MSG 
eu? 1 O41 RDOCT 
1 126 165610 MOV (SP)+, ISWR ;SAVE VALUE TYPED 
Baa 0133 7 RTS PC sEXIT 
Bel .SBTTL SCOPE HANDLER ROUTINE 


H THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCRENEN 
PETHIS ROUTI NG OF SUBTEST S. IT WILL INCREMENT 


;#AND L Re NTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*#AND L ite Teese ee isieinn NTO DISPLAY< 15:08> 


tray 
WG) 


SS NN A NP RY ENR 
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! ? ;eTHE SH SWITCH OPTIONS niga BY THIS ROUTINE ARE: 
- asi =i gs Pharrons 
186 :#Suoe=1 LOOP ON b SPIN SWR<7:0> 
186 3 SCOPE ; ; SCOPE=I0T 
186 1 SSCOPE: 
186 : 104406 asin ;;TEST FOR CHANGE IN SOFT-SWR 
1868 O1 777 O40000 165574 : I IT14, SWR T TEST? 
tee Be Batra is: fie Roar te 
1870 -gueeeSTART OF CODE FOR THE xor tt TTT} 
16 0 $xTSTR: BR 6 331F RUNNING ON THE “XOR™ TESTER CHANGE 
if Vv a -«sp) ‘isa TENTS OF THE ERROR VECTOR 
i ooo004 Rev tel {iSer FORT Fe 
1 1 )+. Q8ERRVEC :: ' 
ie7e i BR RO C i 
1 1 Ss: CMP ( i+, (SP)+ HH cten @ A TIME OUT 
i i BR” (SP)+, SRERRVEC 5; ON OB fest 
1 1 6S: ;88888END OF FOR THE xor’ +E oeeae 
i i 165526 grr 08, ISWR 33 ON SPEC. TEST? 
1884 i 001102 CMPB STSiNM 5 70N ThE GHT TEST? SWR<7:0> 
isse ot es: Efe Senrtc 1 Hes fv ERRor occunreo? 
i i 001103 CMPB RMAX, SERFLG 5 FMAK. RR FOR THIS TESt OCCURRED? 
1 1 165470 5 1T09, aSWR 33 ON ERROR? 
1 1 Q 4 3:6R_IF THF Ng 
es 001106 7S: MOV ae 33 ADDRESS TO 1AST SCOPE 
1 4S: LRB G 33 THE ERROR F 
1895 : CLR ; pias os OF ITERATIONS TO MAKE 
i i 165436 3S: Ber IT11,a3SWR 33 PP te i ee 
i i st Ss aS I Teteth ae 
1 1 Pre SF ont >; INC FN ON COURT 
i i 001104 cHe TIMES, SICNT CHECK meGutAeD MADE 
} i 001104 1S: HOV SL SION es HH INITI autho COUNTER 
1 1 SSVLAD: INCB ae NM° 33 ace 
1307 i 001202 nove $1 TN, TESTN :F8e IN PT MAILBOX 
ise 8 my poe Ste beak 
1910 613269 CLR (Be) 3 Redes _ oe ADDRESS 


11-DRLPJ-A LPA/L io DIAGNOSTIC 
1 INE 


DRLPJ SCOPE HANDLER 
131 BLIETE AIS7# SOPRA SELLE coven: BBN 

iia B4329s Bésods RYY 

1915 013612 001750. SMXCNT: 1900, 

i318 . SBTTL HANOLER ROUTINE 
1918 

1319 ATH I ran tel 
1331 ee a a 
iss Se 

195¢ fi By Eros 

1926 j#SH08= 

1387 : ERROR N 

1355 BIREIS save —" 

1331 13616 1 001103 7S: INC SERFLG 

1338 i 9011 165310 a $?STNM, DISPLAY } 
idee Biase Guise, POLE By i 

001116 rPC 

EES: He dssscs Lb; = BY RIEL 
13a] Liss . BbiT73 20S: : a 
1343 Hea ie 000001 001216 ; CMPB SAPTENV, SENV 
1ad¢ 1 ep 001114 013720 fove TEMS, 21S 
1346 ap 7. 015760 J PC, SATY4 

194 1 21S: -BYTE 0 

1948 Ol "BYTE O 

i 133 777 165210 css: ES ces 
ae as 

1963 01 OKSie 

1954 alee {444 001000 165174 3S: 7 s 1T09, ISWR 
1956 Ol 013716 001110 MO SLPERR, (SP) 
1957 Ol 737 001170 4S: TST SESCAPE 

i i erat 001170 9 SCAPE, (SP) 

1 i 4 Ss: . 

1961 013764 022737 012324 oDD042 CMP #SENDAD, a842 
1 oi 72 OC BNE 6$ 

1 13774 O00 HALT 

1964 013776 6S: 


MACY11 27(654) 1S-DEC-77 08:37 PAGE 39 


Stefi SBreruay {iBReh Ar fee Ainge on Me*T TES 


TURN ADDRESS 
Hat, NUMBER OF ITERATIONS 


STA ROU Ute tA METER Ot ne Mines SP i ca OE 


ERROR FLAG AND THE ERROR COUNT, 
THE RE ADDRESS OF THE ERROR CALL 


THIS ROUTINE ARE: 


TYPEOUTS 


;;ERROR=EMT AND N=ERROR ITEM NUMBER 


tice T_FOR 7 SOF T-SWR 


i Pour TAUeT IME fee R TO, ZERO a 
; TID Tie ERROR COU, sedate 


1 SE’ 1yoeout SAVE THE ERROR ITEM CODE 
"USER E 


a3 “To ROUT INE 


: F NONE 

33 bode Re AFRN ADDRESS FOR ESCAPE 
TO-ACCEPT? 
NO 


SEQ 0046 


MAINDEC-11-DRLPJ-A 
ERROR HANDLER ROUT 


013776 oo000e 


ORLPJ.P11 


Rt 


Fak 


0.0.0 00.00 


SESPA LER OER ee aaa 


ee ee ee ee ee be ae be ae ae ee ee ee 


ee ee bb re 


<£ 
_ 


OOOOOOCOOO0OO C000 0000000000000 


Beenneseos 


esctersstersicte 


tr 
oOo 
ONOU LS We O 


Be 


ee ee ee 


LPA/LPS-11-DRA DIAGNOSTIC 


oooo0o4% oo000e 


177770 


Bi4100 


000176 
165026 
165022 


INE 


001140 


HOY 
MACYI1 27(654) 
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; RETURN 


LO ee ee eee eee eee he tht no 
NUMBER FROM THE TTY AND 


WILL READ AN OCTAL (ASCII) 


| Eo obbeR Ofte 


;HIGH ORDER BITS ARE IN SHIOC 


eee, FOR THE 


PuH Ri oN Stack 


i sei CHARACTER 


i CKUP THIS CHARACTER 


a 
33 *8 


He THE ASCII JUNK 
IN THIS DIGIT 


ve ne meee ee FROM STACK 


TACK INTO Re 


.SBTTL READ AN OCTAL NUMBER FROM’ THE TTY 
PATHI S ROUTINE 
5 xc IT TO BINARY. 
i RPPGRN HERE 
a 
Y Rar = 8B} 
1S: ROLIN ye 
ae ar 
2s: Hove (RO)+,-(SP) 
Ase OR 
ROL Re 
* 
BIC #1C7 (SP) 
§ )4+,R1 
Pe 
MOV * SHIOCT 
SE SPT 
Vv (3p33°RO 


ro 


‘é 


pe zs iR9 FA 
; RE TURN 


2 Re Tu ORDER BITS GO HERE 


cen a RENAE SN LE 
NABL L 


[cee mth owe mae ee 


SOF TWARE 
ra 


 eMHEN 


écxsuR: 


Wie eae: Bs 
CMP 


rere 
BPL 
MOVB 


Leis 
hn 


TRAP 
IN ead 


Ra OND Mbt cree TRAP CALL 
ants iene SELECTED? 


nn side! ’T WAIT AROUND 
Hea tHE CHAR 


MARE On TOP oe THE STACK 


SEQ 0047 


é 


fet 


NN 


3 
“8 


SOBer DT DRPESENNDDOU SS SaaEcae cout UDR NSE MON: 


vMr-OwW 


O0000 OO O0O0000000 20000 
SEECE 
fruruoru 
Son 


LLL CLELCOCL 






eb 0 0 he he 


SESLSLELSLSISSCLC LLC £ 


PJ-A 





TTY INPUT ROUTINE 


boooo? 
001134 
1 7 
se 
176 

1 0O1464S 
164744 


165700 
177600 


ooo0de 
5 177776 
1 001172 


000001 


164664 


000001 
164642 


SGTSWR: 


178: 


18S: 


LPA/LPS-11-DRA DIAGNOSTIC 


MACY11 27(6S4) 


atC177 (SP) 
(SP5+ 


-(SP) 
eats, cep SP) 


),#eS 
NTLU 


fe 


reas UEES 


em 
~ 


cer 


% 


- NIVeanner 
-o 
5 
- 
- 
% 
— 


wwn-— 


1S-DEC-77 08:37 PAGE 41 
:HTS"IT B Gon Ls Wet 
- te Late AUTO-MODE ? 


TROL-G (#G) 
RENT on ion 
TYPEOUT 
FAL 1 ahaa DIGITS) 


Hae ae te 


iioF He THERE? AGAIN 


3 3PICK 
3 ;MAKE 


i seit ASCII 

iT IT A_CONTROL-U? 

iYES +e CONTROL-U (fU) 
NPUT 


a 
ite Mee RY Tt BeAIN 


3;1S_IT A_<CR>? 


Brahe” ire FIRST CHAR? 
Hin H IF YES 
3; SAVE_NEW an 


;; CLEAR ie TACK 
33 7 <CR> <LF> 
33 TTY KBD INTERRUPTS? 


TTY KBD INTERRUPTS 


3 F YES 
$i HAR > 


teCET THE NEXT 
bi PE 7<CR)<LFD 


SEQ 0048 


11-DRLPJ-A PA/LPS-11-DRA DIAGNOSTIC MACY11 27(654) 1S-DEC-77 08:37 PAGE 4e 
1 TTY INPUT ROUTINE SEQ 0049 
014362 000720 BR 20s ;;SIMULATE CONTROL-U 

-OSABL LSB 


5 SEE AE AE AE A AE Ab ab a a A a A a a a a a a a aa a Ha 
j ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 





, L 
1 i RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 
7 RETURN HERE :: CHARACTER IS ON THE STACK 
$i ::WITH PARITY BIT STRIPPED OFF 
14364 SROCHR: MOV (SP) ,-(SP) ; ;PUSH Down THE PC 
14 MOV 4(SP},2(SP) i i SAVE PS 
faz 1s re ; KS Ww F a 
1 MOVB TKB,4(SP) >:READ THE TTY 
1441 BI #tC<177> .4(SP) 3;GET RID JUNK IF ANY 
iw Cc 4(SP), #23 3318 IT ON -S? 
it 2s: TSTB 3iK5 i iHAIT FOR A HARACTER 
144 &6 YB a$1K8,~(5P) 33 " T 
144g BIC aici? aS ) HH a 7-BIT ASCII 
ae Sn en pe 
i 3S: CHP 4<SP), #140 2315S tr PP CASE? 
14464 BLP 4(SP), #175 33;1S IT A SPE fae CHAR? 
1 14472 BGT $s 33 I 3 
104 O14474 BIC #40,4 (SP) $3 T CASE 
1 14502 4S: R He 0 
1 a2 POPTETETTCTOTTTTTTT TTT TTT TT TTT itt t ttt tt Tttt +t ttt titi tt tiite 
gi j THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
108 tH ; IN 33 T A STRING FROM THE TTY 
sit $a RETURN HERE 33 ss Br Past CHARAETER WILL BE ON THE STACK 
sii 1 i 3:7 NATOR WILL BE A BYTE OF ALL O’S 
ll 14 1 SROLIN: MOV R3,-(SP) ;; SAVE R3 
sits 1 1 14612 1$: MOV aStTYIN,R3 :GET AOORESS 
giis 1 14622 2s: CMP aSTTYINSS. RO 3; FE FULL? 
1g 1 1014 BLOS 4§ 3;BR IF YES 
11 1 1 RDCHR 33 READ ONE CHARACTER FROM THE TTY 
11g 1 1 e613 MOVB (SP)+, (R3) 2 :GET ER 
iL i 1 2 13 000177 10S: CMPB #177, (R3) ::1S IT a RUBOU 
18} 1 401 001172 4S: ONE 33 ouEs 33 vPE A ? 
1 1 BR 1s ;;CLEAR THE BUFFER AND LOOP 
le 14 111 14610 3S: MOVE (R3), 9S ?:ECHO THE CHARACTER 
182 14850 { 27 5 Bivels CMPS &iS, (R3)+ CHECK FOR RETURN 
126 014554 001356 BNE es’ t:LOOP IF NOT RETURN 


~ 


rorororururururorurururururururururorurururorurorurorororurunonorurufuruforurururururururorururururururorure : 





TTY INPU 


: 
é 


NDEC-11-DRLPJ-A 
PJ.Pil 

+ 4 iz 
138 1 

1 1 

1 1 

is 8 

1 1461 
1 1461 
1 1 

1 1 

i 8 

1 1464 
lap 146 
l4e 0146 
143 

144 

4 

is 

14 

i? 

1 146S6 
Hs Be 
4 14664 
1 14666 
18? 14672 
13 014674 
HES oi 
1 14 

1 14 

1 14 

1 14971 
165 01471 
1 14714 
16 147 
168 147, 
193 147 
1 147 
17 147 
17 147 
1 14742 
eae 
178 014 
aie 
138 Blue 
180 014762 


boii 
Bisse 


i 
ai 


001173 
001114 


001116 


1322 
14730 


1173 
14746 


001173 


001173 


JUUUU 
JUUUU 


poate 


0S3S0S 


- SBTTL 


eats 1S pfchepattens 1) Seen sareus, cao} 


SERRTYP: 


he DIAGNOSTIC 


MACY11 27(6S4) 


oor — 
-s “2S 


| bento 
4 

<—— 

_ 


‘~ 4NNO@OOO 
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EAR RETURN (THE 15) 
NE FEED 


L 
YPE AL 
ae 
$ | STACK AND PUT ADDRESS OF THE 


i 

: T ASCII CHARACTER ON IT 
; RETURN 

+O ORAGE FOR ASCII CHAR. TO TYPE 

; U BY 

t 

o 


TES FOR TTY INPUT 


ac 


ERROR MESSAGE TYPEOUT ROUTINE 
et gt bh eb gh be gel er i i 


RLF 
,- (SP) 


asSITEMB, RO 
1$ 


SERRPC, -(SP) 


io 
a 


oO “s 2D 
Bap BBBE 
- 4 
mo 
& 


ae 
3 
é 


N-~w O Ul-~ 
Bp 
D7 


8 
+ 
DO 
o 


, SCRLF 


3;"CARRIAGE RETURN” & “LINE FEED” 
::PICKUP THE ITEM INDEX 


; RO, JUST 
i: f The ERROR 
a" 
ASCII(ALL DIGITS) 


be Te ap fr Mi WILL 


POINTER 
SAGE” 





33 QUT K He 
a T R” 
8 R” POINTER S HERE 
3; "CARRI TURN” & “LINE FEED” 
a “DATA TABLE” POINTER 
33 T HE DATA 
;;REST RO 

3; "CARRIAGE RETURN” 8 “LINE FEED” 


SEQ 0050 


MAI -11-DRLPJ-A PAY DRA DIAGNOSTIC MACY11 27(654) 1S-DEC-77 08:37 PAGE 44 
DRESS 1l ERROR ME pessP econ ROUT INE 

014766 000207 RTS PC ; ; RETURN 

14 ; MOV @(RO)+,- (SP) : (RO)+ FOR TYPEOUT 

19358 o4ag TYPOC $+ 80% vee =-OCTAL_ASCIT(ALL DIGITS) 

14774 9057 Tor (RO) ii 1S THERE ANOTHER NUMBER? 

14776 1 Q x3 ?:@R IF 

HES agri 015006 TYPE gs 3; TYPE TWOC2) SPACES 

1 000 8$: .ASCIZ 7 / ;;TWOC2) SPACES 

015012 “EVEN 


rururorurururururorururururoruror 


Sat SAT 


a an Oe ae ae be he be be bee ee ae Pe 


rurururu 
SOP ER LISS LIBaERED RD 


mu 


mM 
oO 
N 


oe 


210 
si 
218 
14 
1S 
1? 
1 15012 000000 
13 i 6 15337 01S235 
1 
32 01 15 
i Qoo00e Oiee37 
és 615061 o00000S 015234 
15060 
15062 
1 
1 b1S296 
af 
1 
34 Ol 





ruruforu 
frurororu 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


55-36 AE SE HE 0 HE SE a A a a a aa a a 
; &THI & ROUT IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


t FOCTBL (ASC IT) NUMBER AND TYPE IT 
j #STYPOS ---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
te NUM, -(SP) ;;NUMBER TO TYPED 
3% ?:CALL_FOR TYPEOU 
3 a .BY N > N=1 19 FOR NUMBER OF DIGITS TO TYPE 
.S -BYTE MM ;;M=1 OR 7 AOING 
a = 
i + See PRESS LEao Ne ZEROS 
; ¥STYPON-~—-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
j #STYPOS OR $TYPOC 
2% * MoV NUM, -(SP) ;;NUMBER TO BE TYPED 
# TYPON ;:CALL FOR TYPEOUT 
j X$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3% MOV NUM, -(SP) TYPED 
* i TYPOC BER OR: TYPEOUT 
STYpOS: MOV a(SP),-(SP) :ProKUe THE MODE 

rove p53: 80nd ae pihe“40° 

MO’ (SP)+ +1 0 Tyee 

ADD (SP) JUST 
STYPOC a sty oF RO FI ITCH 

: Move SORT SET THE ZpRO, FILL SH 

STYPON: MOVB » SOCN ::SET THE ITERATION COUNT 

MOV R3, 33 

+ 


»R4 ye The NUMBER OF DIGITS TO TYPE 


ADD #6, R4  SYBTRACT IT FOR MAX. ALLOWED 
MOVE R4’ SOMODE IT F 

MOV SOF ILL RY T THE 2 RQ bu SWITCH 
MOV 12(5P),R5 ip CKUP THE INPUT NUMBER 

CLR R3 ss Pte THE OUTPUT WORD 


BURBESES 


te 


© 
pete tir tat 


Sa2sR 
wo 


MAI wet -11-DRLPJ-A LPA/LPS-1 
DRLP BINARY TO OCTAL ( 
Bae = 
1 es: 
1 
1 
1 
is 3$: 
015236 
3 177770 
eis 
Bie 4S: 
000060 
1 000040 3 
1 1 
es Hee 
1 7$ 


beoeele TE Ook oa 


SSSR ae Ron Upon as eo soous 
Storeretororocstotororetorotoreretetotereteteretetetstesstctatsi= ila 


0is4¥o4 9000024 
000340 000026 


aedeeeees 


ae 


eb be 


8 
8 


bisai0 
01S31e 


ooode4 


SAR AAR 
or 
: 


furor 


288 


nv 
a 


as 
guna 


250 Frc 
Bis BY 
Be sae aes 8s: ef 
Be pat. Me 


Wa 
wai 


BRRRR 
2 


= 
nD 
ws 


2 
4 


9 
ee 
+t ++ 


eg 


ooo000 -~N- 


MACY11 27(654) 
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; ROTATE INTO “C” 
:FORM THIS DIGIT 


LSB OF THIS DIGIT 
Fars DIGIT? 


it 
4 Wd 


i $1R IE DONE DIGIT. ISN’ T A BLANK 


Ht es 
;REST 
SISET THE SFack FOR RETURNING 


a 

5 5 STORAGE ron. ASCII DIGIT - 
331 pane Me OR TYPE ROUTINE 
33 eee T Marre 

55 

tt AOMBER Bicits TO TYPE 


-SBTTL POWER DOWN AND UP ROUTINES 
«36-3 3-36-36 SE SE 06 aE ab A a a a a a a a a a a a a a a a a a a 


i BRio:2 FOR FAST UP 

Pan ap SN Stack 
Hat BS FS ON Stack 
Be 


STACK 
ON STACK 
;;HANG UP 


gj MEM REA AE HE HE HE EEE RRR E EE ERRE REEL RREE ERE EE 


SEQ 00S2 


MAT ~11-DRLPJ-A LPA/LPS-11- DIAGNOSTIC MACY11 27(654) 1S-DEC-77 :37 PAGE 
DALES Bil POWER DOWN AND R FINES = ™ 





- EVEN 


-SBTTL TYPE ROUTINE 
agSgT foe Tet har taaats actanas tects nae teen ee OTT ee ve 
;¥THE ROUTINE MTEL insert BER 0 RULL & TERS AFTER A LINE FEED. 
: BE USED AS THE FILLER CHARACTER. 


| pees -POWER UP ROUTINE 
| HERE LEAL Biguay cnocen SPwRUrs Foy ETGRUE eBIPHPVEC, 1 GBFT FOR FAST Dou 
1 1 410 CLR SenvRe. ;;WAIT LOOP FOR THE TTY 
| | i 15410 1S: INC SOAVRE 5 ;WATT THE INC 
i 1 163576 MOV (SP 3+, aSWR ; POP ORD, OSWR 
1 1 MOV (SP)+,R5 >:POP STACK INTO RS 
i : MOV (SP)+/R4 > POP TACK 
r 1 HOV (eet RS biBOB Brack INTO R 
’ 8° 
tees Bl ney fabsSeeb dipop Svan INT Bp 
1 152 oo00024 MOV #SPURON, JSPWRVEC’ : ; SET THE POWER DOWN VECTOR 
1 paaSu0 MOV #340, J#PWRVEC+2 a 
1 TYPE $:REPORT THE POWER FAILURE 
305 Ol SPWRMG: .WORD PWRMSG 3 POWER FAIL MESSAGE POINTER 
306 : MOV (PC), (SP) i RES ART 0 EST 
SPWRAD: aORO IOTES RESTART ADDRES 
i SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
i i ae BR --2 ji SBEF ORE THE POWER DOWN WAS COMPLETE 
1g i g: -ASCIZ ¢15><12>/RESTARTIAG AFTER BP POLIER FAILURE/<15><12> 
14 O1 
ee 
2 oi 
tt 


3 


3 : : NULL CONTAINS THE CHARACTER 79 uy 
32 ; #NOTES: FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
328 : #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

330 >#CALL: 

331 :#1) USING A TRAP INSTRUCTION 

33 i TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
2334 :# TYPE 
e335 $i MESADR 
e332 2 

15460 105737 001157 STYpE: TSTB STPFLG ;;1S THERE A TERMINAL? 
2333 BiB 100002 pe’ BPL is ttBR IF YES 
: 40 0154 900906 HALT a ;3HALT HERE IF NO TERMINAL 
42 pt eds8 010046 1S: MOV RO,-(SP) +;SAVE RO 


rurororuru 
WWWWW) 
Ree 

wre 


ee ee oe +e - 


MAT “Th ieee 
| ORLPJ.P11 


| 
| 


PrP Oe 





Ay 
O£o 


De ee be Bt be be bh eh ee ew he 
i 


F508 





£ 


ed ed et nk oe get eek oak ook eked wal ee ed ed 
N 
ee 
£ 


z aR 
OOOO0OOO000000000 
S88 

Pr 







-A 


dee bas be 








PA/LPS-11-DRA DIAGNOSTIC 
TYPE ROUTINE 


Bog001 001216 


000100 001217 


18750 


oooo4o = 001217 


7? 015736 


163252 


Boours deeoce 
018736 


oooo1ie ooo00de 


BUREN 


<x 
4 
3 


Pint epee st 
ae 


DECB 

BLT 

JSR 
cB 


;HORIZONTAL TAB 


STYPEC: 


1S: 


HARCNT 


STYPE 
SEtiLc. (SP)+ 


es 
SNULL , -(SP) 
1(SP) 


Be 


Pc, $TYPEC 
#7, SCHARCNT 


(SP)+ 
T 

3 5 astPe 
P28) 

STYPEX 


STYPEX 


(PC)+ 


HARCNT 
(SP) 


27(654) 
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CONSOLE 









I - 
Pt cemmterry fea Rrrea gro STA0% 
Eee OR POP IT OFF THE STACK 
BRANCH IF <HT> 
BRANCH IF NOT <CRLF> 


POP <CR><LF> EQUIV 
TYPE A LF 


SO SO Se Ss Se Se SS Se SS Ss Ss Se Sees sews 
‘ 


TO BE TYPED? 
THE NULL OFF OF STACK 


A COUNT 


; mee 

ee 
fm 

zm 

z= 

8 


oe TAB _ WITH SPACE 


w 
s 
$ F NOT AT 
ite a 

; E OFF STACK 
;GET NEXT C 

s 

° 

, 

3 


bl 
IT UNTIL PRINTER IS READY 


it" Re TYPED INTO DATA REG. 
TE CARRI 


eFC RETURN? 


33 YES=-cL AR CHARACTER COUNT 
7315 CHARACTER A LINE FEED? 
*:COUNT THE CHARACTER 





MAINDEC-11-DRLPJ-A LPA/LPS-11-DRA DIAGNOSTIC MACY11 27(654) 1S-DEC-77 08:37 PAGE 46 


ORLPJ.Pil TYPE ROUTINE 
2397 015735 000000 


i 


Ob bb be 


NOULEL We 
Te Bee ome es ee bs be Be Bee Bre Ds Ore ne ee ee 
. *@ ‘ " ’ " 
oro" C 


FONSI E fs 


POOOOOPOS SSS CSOs 


BRRSS Dae O=2 b= = B= Pe be P= b= bh hh 
ORF EOS LOL Seon 


ee ee 


O0O0000000 





SCHARCNT: .WORD O ;;CHARACTER COUNT STORAGE 
STYPEX: RTS PC 
.SBTTL APT COMMUNICATIONS ROUTINE 
oo PERKRERERERERESRSRSEERESRERARESRRLRERERERERERRRERRERRRRRRRRERKE 
SATY 1: #1, 33 9 FAT 

TY3: gh vA L 3;1O0 T A MES 
MOVB #1,SFFLG 3;TO ONLY REPORT FATAL ERROR 
RO, -(SP) 33 TACK 
RO {8p} tEEUSH RD ON. STACK 

G j SHOULD TYEE A MESSAGE? 
CMPB SAPTENV, SENV jj OPERATING UNDER APT? 
ee $ 
a TSPOOL ,SENVm ;; MESSAGES? 


SATY4: 
SATYC: 


a ITE NOT: 
MOV (SP), RO 33 MESSAGE : 
ADD #2, 4(SP) “34 33 POOF URN ADOR. 
1S: rst SMSGTYPE un a i’ LAST XMISSION? 
SMSGAD 4 ke N MAILBOX 
2s: iste A, 8 33;FINO bp ME 
,RO 33 TART 
moe BY NEE IEG sro 
HOV a, YPE eee py TO TAKE * 
3S: BB a4 (SP) 4s ; ;PUT se Be abrday LINKAGE 
ae ; ; PUSH ON STACK 
PC, STYPE >; CALL MACRO 


s & 
5° 


4 . 

S$: 

3, TSTB SFFLG 33 REPORT FATAL ERROR? 
1 331F NOT: 


BEQ es 
Bee Ley agen err 


118: ST TYPE NISHED MESSAGE? 
ii HAE MO gtatt 
Vv a4( SP), SFATAL > 3GET Py = 
NC TYPE 3;TE abt to TAKE ERRORS 
128 LRB LG 33CL FATAL FLAG 
cee | See bE ELERR HESSAGE F 
(SP)+,R1 FEE Bee INTO BT 
v (SP)+, RO ker STACK INTO RO 
P ii 
SMFLG: .BYTE O ::MESSG. FLAG 


SEQ OOSS 


ey 1-DRLPJ-A 
APT COMMUNICATIONS ROUTINE 


ORLPJ.P 


Be fe: 





LPA/LPS-11-DRA DIAGNOSTIC 


016244 


ooooo4 o0d0dde 
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i EFATaL FLAG 


Be RE 


TRAP DECODER 


3 HIT INE tee PIokUe THE LOMER BYTE OF THE “TRAP” INSTRUCTI 
‘iTHIS ROUTINE WILL PICK RAP” INSTRUCTION 


PAE ok Ba RGF Rn Tee bee NAHED TPR 


mmr gE oe 
ti HoT: Tr8R INDEXING. 
RTS RO ROCRO) RO THOS ROUTINE. 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 

STRAPe: MOV (SP),- 3;;MO ¥ DOWN 
Rey HOVE TH Psu, Bot 

-SB8TTL TRAP TABLE 


4(SP5, SEP) 
5 STHIS TABLE CONTAING TH5 of! STARTING ADDRESSES OF THE ROUTINES CALLED 


SEQ 00S6 - 


ing eEROS) 


R LAST CALL) 


; ROUTINE 
$TRPAD: 
Wee te TYPE TRAP+ (104401) T TTY "Six ROUTI tet. 
= RAP 
31¥30s 1 Setety TRAP+ 1oawos) AL UBER CeAbi 
T ALL=TYPON TRAP+4 (1 Bet Ti NUMBER ( (aS 
SGTSWR ;;CALL=GTSWR TRAP4+S(10440S) GET SOFT-SWR SETTING 
SCKSWR ;;CALL=CKSWR TRAP+6(104406) TES 
HR :!CALL=ROCHR TRAP+ attra Thy Ty y Heels ChGnATER RO ROUTINE 
IN };CALL=ROLIN TRAP+10( 104410) T N STRING ROUTINE 
T }$;CALL=RDOCT TRAP+11(104411) RE OCTAL NUMBER FROM TTY 


i STHIS SUB 
WE 


;#F IRST MC-11 


— 


C-11-DRLPJ-A LPA/LPS-11-DRA DIAGNOSTIC MACY11 27(654) 1S-DEC-77 08:37 PAGE SO 
Pil TRAP TABLE 
SORES ME MLL SED BOT UPaRREES DRS 
j RTHE ORDER OF + oRp Bae A Use USER. 
3% CALL= JSR RS, SLPAI 
i# areas quinn: 0 2 ;ADOR. OF DEVICE ADDRESS. 
5 PR gut : pROPRS 
;% ;RET WITH SAERR=1 IF SLAVE 
i :MICRO SAYS AN ADDR. DOES NOT EXSIST. IN THE LIST. 
16270 S$LPAI: ' 
16270 013746 oo0004 MOV 4,-(SP) 
016274 000413 BR 31S 





> 
WI I 
SHITCH® IS A PIECE OF INHOUSE 
T CONNECTS 
Thee iy BUS FOR 
1 0 oo00004 MOV ¢ 4 ae Tal veimees 
1p678 Baez 1 8358 INC 138300 
1e318 dooabt HEHE are ete HUET OMER Had Rat 
,B5S: -ASCIZ <7>88 " 
fe eo 
1 30S: Bre 283 14, (sp 4 
Hee gogao4 315: Hoy (SP) 4,4 ;ALL THIS JUNK MUST BE REMOVED! ! 
1 017150 JSR RS, OAD ; MICRO-CODE. 
1 . WORD B48 ieoCe “DRLPX2. 08” 
016342 052777 O40000 163066 BIS #BIT14,3KMADO ;ISSUE KMC+DMC INIT. 
016350 1S: 
: hah oe so oneal ;"HANGS” HERE THEN KMC-11 ERROR. 
1 1 CLR Ri’ 
i 4 1 2s: INC Ri ;STALL FOR DMC-uUP 
i 12777 104000 163050 ma HOV aG1T1S!B1T11, aKMADO ;SET RUN, AND ENABLE ARBITRATION. 
12358 i3 , BNE 25s 





[ 
' 
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ORLPJ.P1i TRAP TABLE SEQ 00S8 
59 O01 932777 000040 163036 BIT #B1TS, IKMADO ;SLAVE READY? (READING IPBM SR) 
164 1401 ; BEQ 3s 
;FATAL LPA-11 ERROR SLAVE NOT READY. 
016402 104000 ERROR 
Bless 012777 000004 163030 38: MOV #4, IKMAD2 ;READ FAST PATH 
1eyis 004S37 O20060 4 ISR RS, STOUt ;-TOUT-CHECK FOR TIMEOUT 


016416 104000 ERROR Poe eal 


+ EON i CPA ATS Loop 
+ /WOUL NUncE US Hanes HERE 


B76 Ai5237 177777 017114 SS: ove S)+sRl : BAG CO0e FOr ee eR. 


O1 2 
1 ( 

1677, Geile? ooo000 6S: CMP ( > TERM REACHED? 
13008 Tose? Pace. «sii 

17 103535 1 : : 

01 P 

Bt sal 

01 cri 


7 
zs 
oe 016420 000774 BR 4$ 
26 ; (RETURNS HERE -FROM-T MED OUT. 
164 051370 000377 163012 CMPB 8377, akmave *WAIT TILL DONE C : 
18d 1 4329 000377 163006 BNee #377, IKMADY ;IF FAST PATH=377 THEN ERROR. 
164 001001 358 
16442 104000 ERROR ;IPBM ERROR ( SIDE) 
:YOU MUST Run Teen AGNOSTIC. 
: 444 77 000004 162774 35S: CHPE #4, @KMADS ; 1S_THIS THE CORRECT VERSION OF MICRO-CODE? 
1 177777 INC #-1 ; : 
1 1 BNE Ss 
1 177777 INC a-1 
1 il BNE S$ 
164 i Oi 016476 67S ;; TYPE 12 TRING 
16474 BR 66s GET R ASCI 
a iig?S: -ASCIZ <2000"W ARNIA’G THI lids DESIGNED TO rUN WITH VERSION 4” 
16576 016604 , TYPE ;: TYPE 1Z STR 
g SIE7E soso, We +4 TYPE agcrZ, STRING. 
ae eee 5ig2S: “ASCIZ <200>"MICRO-CODE: "ANOTHER VERSION CODE WAS DETECTED.” 
16664 1 016672 : TYPE 71S >: TYPE IZ STRING 
38 oi bSdu34 BR >0$ > GET oven tue AsSCIZ 
-:71$: .ASCIZ <200>"THIS MAY OR’MAYNOT CAUSE FALSE ERROR TO BE REPORTED.”<200><200> 
016762 >o$: 
2609 


17114 
17114 3162434 MO 
17116 


SLE SEND 


3FI 
215 

@KMADY j SEND LOW BYTE OF DEVICE ADDR TO SLAVE. 

, JKMADY :SEND HIGH BYTE OF DEVICE ADDR. TO sLAVE. 


aoe 
MwMrOo 


aan FE 11-DRLPJ-A Thap 


13 


4 


017032 


017060 


004737 


006774 
122777 
p0G20? 


000000 


LPA/LPS-11-DRA DIAGNOSTIC 


TABLE 


017116 
oooo0de 
ooo00e 


020060 


000377 
162346 


017146 


000003 
020060 


000377 


162372 
162366 


162350 


162316 


162300 


7$: 


SAERR: 


ar 


CMPB 
T 
. WORD 


MACY11 27(6S4) 1S-DEC-77 08:37 PAGE Se 


PC, 20S 
IT1,a¥MADL 
#2, JKMAD2 


RS, STOUt 


#377, AKMAD2 
8s 
 temei 

% 
SAERR 
($P)4,R1 
ae” r 
0 


#3, JKMAD2 
RS, STOUT 


21s 


#377, AKMADe 
1$ 


0 


;WAIT FOR FIFO DATA 
;=1 NO DATA. =0 DATA 
;READ FIFO. 


;~TOUT-CHECK FOR TIMEOUT 
tue FAILED. 10. 
AILED TO COMPLETE 
/CURREN RATION. 
eo INES N THIS LOOP 
;7WOULD MAKE US “HANG” HERE 


/RETURNS HERE-FROM-TIMED OUT. 
{WAIT FOR READ. 


MBS Be F fexi Abn 
;SLA W L RETURN CODE O IF 
EXIT i IF 

RID OF REFERENCE TO BAD 
;RETURN ALL ADDR. CHECKED. 


OUP AVES. ADDR. i yrs 


; ISSUE FIFO WRITE 
;~TOUT-CHECK FOR TIMEOUT 


{sue FAILED TO 6 TO ‘4 
eon MES Si RATHIS LOOP 
RETURNS HERE-FRON-TINED OUT 


:KMC CODE WILL RETURN A "377". 
;WHEN DONE COMMAND. 


;=0 IF ADOR. LIST OK,=1 IF BAD. 


;* 2 
iene : tore YaeO TO ROA BAGO CODE INTO LPA-11. 


GIVES ERROR. 
ADOR. 


SEQ 00S9 


SSS SSS SSS SSS SSS SS > 
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MAINDEC-11-DRLPJ-A 
DRLPJ.P11 TRAP TABLE SEQ 0060 
2667 if - WORD XX oe ;ADDR. OF MICRO CODE. 
es i NOTE: MICRO tS0e FILE MUST END IN -1 DATA. 
7 , 
34 017150 o10446 $LOAD: MOV RY, -(SP) ; SAVE 
2673 017152 010046 . MOV RO, - (SP) : SAVE tle 
56s 11s 162254 CL Se RET ’ 
33 Bat Oo, bpS5nD 6162242 2S gis oO, aK EO CRAM 
17 8§ : MOV EN MADE : posta. 
1 BIS ,aKMADO oo; WRITE 
i fhe ; An ADOR. 
1721 1 CMP (0), #1 j ALL DONE ? 
3 
BIzeES Biesr) Bh Sram, «HSER BRAM BOR oe 
1 3S: I , a@KMADO ; CT 
is TRO RATABGEEETDSO 
1 Di CMP (0), 0-1 j ALL DONE? ; 
3 17, Of BEO 4 : - EXIT 
17, : CLR aKMADO 'NO - DESELECT CRAM. 
Be 917262 INc SKMADY ‘UPDATE CRAM ADOR. 
017270 012600 4S: MOV (SP)+,RO ;RESTORE RO 
2697 017272 O12604 v (SP)+'R4 ?REST R4Y 
b13894 poneHe RSE EXIT 
17276 Ss: ;COME HERE ON LOAD ERROR 
i 017 876 005745 TST -(5) 
17 105204 INCB = R'4# ;UPDATE ERROR COUNTER. 
7 017306 BPL 1$ : IF MANY, TRY AGAIN. 
2 17 HALT :MIC LOAD ERROR. me 
27 017306 000722 BR 1$ eo Ss CON ine FO give IT 
soos ANOTHER CHANCE BUT 1 °D0uBT 
2708 : THAT THAT WORK. E I'VE 
709 ; ALREADY IVEN IT 177 (OCTAL) CHANCES. 
710 : TRY RUNNING THE KMC-11 DIAGNOSTIC. 
aE 
e714 ; ATHIS ROUTINE ISSUES A WRITE COMMAND TO tHE LPA-11 
2716 :% CALL = JSR RS, STLKW 
2717 $i .WORD O ;OFFSET OF DEVICE ADDR. 
e718 i ‘WORD O :DATA TO BE WRITTEN 
6543 017310 o1c04%6 STLKW: MOV RO,-(SP) ;SAVE RO 


MAINDEC-11-DRLPJ-A 
DRLPJ.P11 TRAP T 
2721 017312 Ol 
7 17314 
7 1 7. 
7 17. 1 
7; 17. 1 
7 1 
7 17. 7. 
7 17. ll 
2736 017 ll 
731 17356 
731 017956 142777 
36 Ol7aes Gaza 
eae 17374 112577 
Pe fae Mere 
5738 1741 12600 
7. 17414 
7 17416 
740 Bi ees 000000 
741 1742ee 000000 
742 
2743 
2744 
sre 
746 
747 
74: 
74 
2750 
Soe 174 1 
Sree Sires gions 
17430 had 00 
res Gla OONr37 
Be ina 112772 
sre Bt eee 010037 
2760 017462 
s7ek 01746e 004S37 
763 017466 104000 
764 
2765S 
2766 
2767 
5798 017470 000774 
770 
2771 
277e 017472 032777 
2773 017500 137 
2774 O1750e 11277 


000040 
ooo004 


162034 


161770 


161736 
161732 


STLKR: 


1$: 


IOS 
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MOV (5)+,RO ;GET DEVICE OFFSET 
BIS #340, RO :ADD_WRITE CODE. 

JSR PC, SLPW :WAIT FOR FAST PATH READY 
MOV RO, W1 

MOV RO, aKMADY 

MOVB 8S; JKMAD2 ; ISSUE_FAST PATH WRITE 
JSR PC’ SLPW :WAIT FOR RDY 

MOV 8} We 

MOVB (5)4, aKMADY ;WRITE LOW BYTE DATA. 
MOVB , aKMAD2 ;FP WRITE 

JSR SLPW 

MOVB (53 Wa 

MOVB (5)4, aKMADY ;WRITE HIGH BYTE 

MOVB #5, aKMAD2 

JSR PC’ SLPW 

MOV (SP)+,RO 

RTS RS ;EXIT DONE. 

0 

0 


5% 
j #THIS ROUTINE ISSUES A READ COMMAND TO THE LPA-11 


:H CALL = JSR RS, STLKR 
1 i Wd ;OFFSET OF DEVICE 
* i :RETURNS HERE 

j #DATE IN WORD SOATR 

MOV RQ -(SP) ; SAVE 

MOV (55+, >GET OFFSET 

BIS #300 :ADD_READ CODE 

JSR PC, SLPW ‘ :WAIT TILL READY 

MOV » MADE ; ISSUE WRITE FP 

JSR PC; SLPW 

MOV RO; ROL 

JSR RS, STOUt ;-TOUT-CHECK FOR TIMEOUT 


ERROR ;7TIME-OUT ERROR 
or FAILED TO COMPLETE 


3 NT OPERAS 

; “CONTINUES IN THIS LOOP 

;7WOULD MAKE US “HANG” HERE 
BR 1$ 


;7RETURNS HERE-FROM-TIMED OUT. 
;FAST PATH GOT DATA? 


; ISSUE FAST PATH READ 


git #B81TS,aKMADO 
MOVB #4, JKMAD2 


MAINDEC-11-DRLPJ-A  LPA/LPS-11-DRA DIAGNOSTIC MACYL1 27(654) 1S-DEC-77 08:37 PAGE SS 
DRLPJ.P11 TRAP TABLE 
77S 017510 004737 017572 JSR PC, SLPW 
276 i 14 117737 161726 017570 - MOVB JKMADY, SDATR ;GET LOW BYTE 
278 17522 004537 O20060 z ISR RS, STOUT ;-TOUT-CHECK FOR TIMEOUT 
780 017526 104000 ERROR /TIME-OUT ERROR 
781 SWE QILED TO TO COMPLETE 
2782 /CURREN QPERAT 
783 : CONTINUES N Tate: Loop 
g US “HANG” HERE 
568 017530 000774 BR 23 
Bs 1 000040 161676 BIT #81TS, JKMADO i CRET PATH READY. ED -_ 
sf Bt eeaS £39350 BNE 58 ' 
73 1754 2777 0000 161672 MOVB #4, IKMAD2 ; ISSUE FAST PATH READ 
7 1 bb5559 017572 JSR PC, SLPW 
7 17554 1177 161666 017571 MOVB aK SDATR+1 ;SAVE HIGH BYTE 
734 Ol 12785 MOV (SP)+,R ; 
795 017564 o0020S RTS RS 
3738 017566 000000 RD1: 0 
7 017570 oo0000 SDATR: .WORD O 


THIS ROUTINE WAITS FOR KMC-CODE TO BECOME READY AS WELL 
;AS FAST PATH TO BE READ. 


CALL = JSR PC, SLPW 


Beene 


IT WILL TIME OUT IF TOO MUCH TIME IS TAKEN BY 
THE MICRO-PROCESSORS AND REPORT AN ERROR, THEN HALT. 
4 
1757¢ 0146 SLPW: MOV R1,-(SP) ;SAVE R1 
17574 Ol CLR R1 
2810 017576 2777 000377 161636 1S: CMPB 8377 , aKMAD2 ;FINISHED INSTRUCTION? 
2811 017604 1403 BEQ 
2 1 I NC R1 ;TIME OUT? 
1 1761 1 BNE 1§ 
eai4 1761 11 BR 10$ 
16 17614 000020 161614 2S: BIT #BIT4, JKMADO ;FAST PATH READ? 
1 1 4 BEQ 3$ 
1g 1 1 INC R1 ;NO - TIME OUT? 
281 17626 1372 BNE 2s 
e820 017630 02 BR 10s ;YES - REPORT AN ERROR 
2822 017632 012601 3$: MOV (SP)+,R1 ;RESTORE R1 
e823 17634 000207 RTS PC tEXIT 
2825 017636 10$: 
2826 017636 104401 017644 TYPE 65S 5 3 TYPE ASCIZ STRING 
2827 017642 600407 4§ °GET OVER THE ASCIZ 
2828 :;65$: .ASCIZ <200>#LPA-11 Faults 


be 
o- 
— 


Hi 


oo 
S 
t= 

° 

HO & 


NAS 
£vo 


REEEPDDR DN 


bb bh bh hh ee 
aS 
- 
i=) 


OONOOOOOO00000 B0O000000 


Be71 017760 
287. 7762 
287. 
2874 


| 
| 
2 
| 
| 


ee 


NI 
_ 
oOo 


38 


pesectie 3 


+ 
£ui 
e8 


= 


: 


001464 


017734 


617738 
17310 


016270 


LPA/LPS-11-DRA DIAGNOSTIC 
ABLE 


64S: 
113: 


SOUtLP: 


1S: 


es: 


3$: 
4$: 


10$: 


KOS 


sL 
118 : DIAGNOSTICS. 


;* 
; #THI rou Ts PROVIDES THE LINKAGE FROM USER CODE TO 
*#A DEVIC THE I 


i ADDRESS ON 70 BUSS FOR WRITE ONLY. 
:% FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN USED 
:% BEFORE. IF NOT WE HAVE TO INITIALIZE THE LPA WITH 
:% THAT ADDRESS. 

:% WHEN THE ADDR. IS KNOWN BY THE LPA, DO THE OUTPUT BY 
:% STLKW 

; & 

MOV RO, -(SP) ;SAVE RO 

MOV R1;-(SP) :SAVE R1 

mov # OVS, RO ;PROGRAM DEFINED LIST. 
ee YER HET Og Bncreo” 

CMP a5), (0)+ :MATCH WITH EDOR IN LIST? 
BEQ 2s 

INC Ri 

BR 1 

nov Rl, 3S ;SAVE OFFSET, DEVICE KNOWN. 
MOV a(5)+,4S ;GET DATA TO BE WRITTEN 

JSR RS, STLKW :D00 WRIT 

; 0 >DEVICE OFFSET 

“WORD 0 :DATA TO BE WRITTEN. 

MOV (SP)+,R1 

MOV (SP)+/RO 

RTS RS 

MOV a(5), (O)+ ;SAVE ADDR. 

CLR (0) 

JSR RS, SLPAI 

.WORD .OVLS 

BR 2% 

-% 

:#THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE 
'*TO A DEVICE ADDR. ON THE 170 BUSS FOR READ ONLY. 
t#FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN 
**USED BEFORE. IF NOT, WE HAVE TO INITIALIZE THE LPA 
:4#WITH THE NEW ADDR. 

j HUHEN THE ADDR IS KNOWN WE CAN DO OUTPUT THROUGH 

; r 
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SEQ 0063 


ee 


MAI -11-DRLPJ-A LPA/LPS-11-DRA DIAGNOSTIC MACY11 27(654) 1S-DEC-77 08:37 PAGE $7 
page il TRAP TABL SEQ 0064 
2883 # CALL THROUGH | . vel DATA, ADDR. 
Sead $a of RS, SINLP 
3% XX ADOR OF DEVICE 
3% “WORD YY ADDR TO STORE READ DATA. 
2889 017764 010046 SINLP: MOV RO, -(SP) ;SAVE RO 
5531 017766 010146 MOV R1,-(SP) :SAVE R1 
017770 012700 001464 MOV #.DVLS,RO ;PROG DEFINED ADDR. LIST. 
17774 1 CLR Ri 
77 710 1s TST (0) ;EOL REACHED? 
14 BEQ 10$ :YES - DEFINE NEW ADDR. 
02000¢ ooocco CMP a(S), (O)+ :ADDR. MATCH? 
851908 ns a ; 
20019 005201 INC R1 
520012 000771 BR 1s 
4 4 020026 2s: MOV R1,3$ ;SAVE LIST OFFSET 
TST (53+ 
37 017424 JSR RS,STLKr ;GO READ DEVICE 
$OFS= 
020026 3S: .WORD 0 ;OFFSET OF DEVICE 
2908 020030 013735 017570 MOV SDATR,a(S)+ ;STORE DATA. 
1260 MOV (SP)+;R1 :RESTORE R1 
10 v (S5P)+>RO j RESTORE R2 
5313 _ omeans 
2913 017520 oo0000 10$: MOV a(S), (O)+ 
14 CLR (0) 
iz 4 1464 samties JRO RD RS, SLPAL 
2 Bare Powe et, 
?#$TOUT ROUT D TO WATCH IF 
2 i He*Re IN @ LOOP T90-LONG 
1 :% = JSR $TOU 
gage # ERROR 4 ;RETURNS HERE ON TIMEOUT 
2934 5 ;RETURNS HERE NO ERROR 
; 
cp ge0n60 O05 7 020114 STOUt: CHP RS, SSAD ;SAME ADDR? 
2929 020066 010537 020114 MOV RS, SSAD ;NO-SAVE THIS ADDR. 
5331 osbere 02011 cLR SCAT ?CLR CNT AT ADDR. 
1 020116 1S: INC CNT ; OVERFLOW? 
2933 020104 1004 BMI $ : YES-ERROR RETURN 
34 1 0667 oo00004 2s ADD #4,RS ?NO-NON ERROR RETURN 
335 il 2 35 R Ss ? RETURN. 


a 


SEB MRRBREE SS ase eee DR BUNUN SE EERTE CaS 


MAINDEC-11-DRLPJ-A LPR/LPS-11-DRA DIAGNOSTIC MACY11 27(654) 1S-DEC-77 08:37 PAGE SB 
ORLPJ.P11 TRAP TABLE 


penis 000000 $SAD: -WORD QO OOF Ti LOOP ADDR. 
116 000000 SCNT: -WORD O # OF TIMES AT ADDR. 


LBP DPX PPE MoS MEE THERESE 
ISS" Gat OQSN ol HUPREDs BcPBnERaas,"O™ 


:s CALL=JSR SET sREPLACES “RESET INSTRUCTION 
3 ; RETURNS Pathe . 
020120 oo0005 GRESET: RESET ;RESET THE WORLD. 
5% S$ ;/READ DE DATA IN 1S. 
020132 005737 017146 MOY EBA ee es Cob 
ps01aB ey oo00002 o20154 BOD 1D 2s ‘Tere weve 
~ ates PROTECT OUR SELF! 
ONTAINED A Bal D ADOR, WE 
KEEP PH RVING UNTI Oe GENERATE 
920146 000764 BR SRESET ems 
0150 10$: 
159 ? RT PC 
1 00 1S: W 0 ; JUNK LOC. 
154 160000 2s: ‘WORD 160000 :DUMB ADOR. FORCES INIT OF DMC/KMC. 


? SDELAY- NE TO GIVE A MINOR DELAY. 

; ca TIME BLBENDENT Cc SENCE 
ET SPECIFIC TIME BUT 

MST A CITTLe DEL 


THAT IS UNLE re A. REA. pha. 4 CLOCK IS PRESENT! 
THEN WE’LL A TIME BETWEEN 16MS TO 32 MS 


CALL= JSR PC, SDELAY 
SDELAY: 


156 
arts 005737 o20240 TST RTCCSR ;CLOCK PRESENT? 
G20 166 i 1g BPL 10$ 

164 re oo0002 020230 MOV #2, TIME 
020172 052777 000115 o00040 BIS #115, ARTCCSR ;START CLOCK 

ne ee na 
9 13 : 1 

le ooso oo0022 CLR ARTCCSR ;STOP CLOCK 

020216 RTS PC 


000207 
beose4 apis "PSO 108; NE? Ts 


SES oeUnneeecoas aaaERS 


NOU LSWM-O 


S88ssss 


S22GBURATERSRUS UOTONENS 
: xt 


a 


pd ek el eee 


58 


MAT -11-DRLPJ 
DRLP aS ll 


-A 


LPA/LPS-11-DRA DIAGNOSTIC 


TRAP TABLE 





005037 
04401 


Brom 
SeNENEVON 
ENQ=QogSN 


3 
| 


si 


os 


020230 


001464 
0202S4 


160652 
06 
all 

0 
020414 
020416 


017764 
020352 
020362 


020412 
017666 


020416 
020416 


000104 


TIME: 
CLKINT: 
RTCCSR: 


es: 
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RTS PC 

-WORD O 

pes TIME 

-WORD O ;CLOCK CSR IF USED. 


He 

:#THIS MAC ALLOUS THE OPERATOR TO TALK TO 
;#ANY DEVICE ON THE 1/70 BUS 

; #USER T START AT THIS ADOR 

j HHE MUS oeek EITHER “E” FOR EXAMINE, OR “D” FOR DEPOSIT. 


;#NEXT, HE MUST SUPPLY AN ADDR. 
:#NOTE IF ADDR. IS NOT FOUND ON I70 BUS, A HALT 
;*#WILL OCCUR. 


CLR .DVLS 
TYPE 65S :; TYPE ASCIZ STRING 
ORScIz C280) #e OR 078 i3GET OVER THE ASCIZ 
TsTe asTKs 

MO TKB, 20S :GET INPUT 

noe, . ; ECHO NEXT MESSAGE. 
BICB #240, 20S ;STR ® PARITY, LC 

MOV (SP)+, 14S . ; 

nee 20s, # ts) ; DEPOSIT? 

JSR RS, SINLP ;GET DATA 

‘WORD S$ 

MOV 5$,-(SP) ;;SAVE S$ FOR TYPEOUT 
TYPOC ; ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
BR ap 21s : LOOP. 

TYPE 67S ;; TYPE ASCIZ STRING 
BRscIz 288 o> woATAS @ pest OS BS oes 
RDOCT 
MOV (SP)+, 13 

SR RS, SOUTLP sOUTPUT ROUTINE. 

JRE RD 14$ :DEVICE ADDR. 


| 
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SEQ 0067 





goo 13$ ;DATA 
13$: . WORD 9 
14S: - WORD 
2 [ASCIZ <1><200> #DEVICE ADDR= # 

. EVEN 

‘THIS ROUTINE LOOKS THROUGH | plc . 

Yo Sr up the oseR Proghan 16 CORK TO ILE “DRL KHOLEPURBOSE J 

; ses TO TAKE 88 oy R PROGRAM MUST SET UP 

; on es men © Re, tie ;CALL SET UP ROUTINE. 

; : RETURNS HERE a cf 3.6 be? PERMINENTLY SET uP 

, 

; G 2 TO 

: ae Biel ced WB, 

s 

(B} wo, TAKE Hore “SROPLES, SIMPLY ut A/D CSR INTO 
SPUTS: fhov ( te18, ;GET ADOR OF ADDR. OF A/D 
1S: - HORD a” 

MOVE $525, axnane 

ve regener 

eR i NLP 
2s: WORD O° 

MO » IKMADS 

Biss $30 + MAG? 

Rigs geo akens 
10S: .WORD O 


g 


| 


| PREIS 
ABASE = 








+ 


Vatnw inne 


11-DRLPJ-A 
CROSS 








REFERENCE taal 


1688 
280 


Rae BOR NR TORS ROOTS SEU RRO E SS 


wo 


DIAGNOSTIC 


321 


2413 e4sss 


319 


CO6 


MACY11 27(654) 
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SE@ 0069 


1S-DEC-77 08:37 PAGE 62 


MACY11 27(6S4) 


DO6 


LPA/LPS-11-DRA DIAGNOSTIC 


CROSS REFERENCE TABLE 


MAINDEC-11-DRLPJ-A 


rite 


1091 1545S 1604 1665 
1106 1119% 1S4S# 1549 1562 1576 
18288 


10S8 
033 
826 
401 


: f af ‘ 
ia 
i=) w z 
“ fa?) tet - 
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